none
特定の列のデータが変わる箇所の間に空白行を10行入れる RRS feed

  • 質問

  • 下記の図1のマクロを組み、図2のようにG列のデ値が変わったテストとテスト2の間に空白行を挿入するマクロは組めたのですが、

    空白行を10行追加する方法がわからないので、ご教示いただきたいと思います。

    【図1】

    【図2】

    2018年4月24日 15:26

回答

  • Rows(行).Insertを10個書いても良いですし、ループを回して10回実行しても良いですが、それもかっこ悪いので、Rows(行).Insertを以下に変えれば大丈夫だと思います。

    Rows(行).Resize(10).Select
    Selection.Insert
    ActiveCell.Select

    #コードは図ではなくコピペできる形で掲載していただくと、回答者がすぐにテストできるで助かります。


    ★良い回答には質問者は回答済みマークを、閲覧者は投票を!

    2018年4月25日 0:49
    モデレータ

すべての返信

  • Rows(行).Insertを10個書いても良いですし、ループを回して10回実行しても良いですが、それもかっこ悪いので、Rows(行).Insertを以下に変えれば大丈夫だと思います。

    Rows(行).Resize(10).Select
    Selection.Insert
    ActiveCell.Select

    #コードは図ではなくコピペできる形で掲載していただくと、回答者がすぐにテストできるで助かります。


    ★良い回答には質問者は回答済みマークを、閲覧者は投票を!

    2018年4月25日 0:49
    モデレータ
  • ありがとうございます。

    無事に追加できました。

    2018年4月29日 13:38