Find centralized, trusted content and collaborate around the technologies you use most.
Teams
Q&A for work
Connect and share knowledge within a single location that is structured and easy to search.
私は毎月、20 ~ 10,000 行の範囲の多数のファイルを作成しています。1 つのフィールドは可変長で、レポート用に 1 ページ幅に収まるように折り返されたテキストとして書式設定されています。ファイルは外部ユーザー向けのレポートを生成するために使用されるため、テキストが一緒に実行されないように、各レコードの間に空白行を挿入しています。行 2 から行 x (x は 20 から 10,000 の範囲) までの空白行を挿入できるマクロを作成する方法が必要です。
このように..ボタンでこれを行います
Sub InsertRow() ActiveSheet.Cells(2, 1).EntireRow.Resize(100).Insert End Sub
これにより、100行の空白行が挿入されます