MS Officeアプリは非常に設計されています賢く、私がこれを言っているのは、彼らが私の仕事を無限に簡単にしてくれるからです。本当だから言っています。数日前、YouTube動画をOffice 2013に挿入することについて投稿しましたが、MS Excelにはオプションが必要なかったという理由だけでこのオプションは存在しなかったと指摘しました。これは私が話している種類の知性です。特定の種類のアプリに必要な機能を知る。関係のないものが最終製品に含まれないようにします。とはいえ、Excelでワークシートにさらに行を挿入できるのに、追加する行の数を選択できないことに驚いた。既存の行から追加する行の数を選択し、挿入機能を使用するなど、これを達成するための別の回避策があります。または、必要な数の行に対して行の挿入手順を繰り返すこともできます。繰り返しはありますが、5分間の余裕があれば、この小さなマクロで仕事を引き受けることができます。
これにはマクロが必要なので、次のことが必要になりますファイルをマクロ対応のExcelファイルとして保存します。これを行うには、[名前を付けて保存]ウィンドウで[種類として保存]ドロップダウンをクリックし、[Excel Marco対応ワークブック（* xlsm）]を選択します。
次に、マクロを作成します。 [表示]タブに移動し、[マクロ]をクリックして新しいマクロを作成します。好きな名前を付けて、「作成」をクリックします。次のウィンドウが自動的に開きます。
ここで重要なのは、「サブ」と「サブ終了」です行。 Sub行にはマクロの名前が含まれ、End Subにはそのマクロのコマンドの終わりが示されます。作成したばかりなので、上記のスクリーンショットのように、これらの行の間に何もないはずです。これらの2行の間に次を貼り付けます。
Dim CurrentSheet As Object
" Loop through all selected sheets.
For Each CurrentSheet In ActiveWindow.SelectedSheets
" Insert 5 rows at top of each sheet.
CurrentSheet.Range("a1:a5").EntireRow.Insert
Next CurrentSheet
このコードは、最上部から5行を挿入します。 コードではA1：A5として参照されます。ニーズに合わせて編集するには、この範囲を編集する必要があります。最初の値は、行が挿入される場所への参照として機能します。 A100に変更すると、最初の99行の後に行が挿入されます。基準点を設定したら、行数を入力する必要があります。
行番号は、セル範囲A1：A5によって定義されます。 この範囲は5行を挿入します。たとえば、A99から25行を挿入したい場合、行数の正しい範囲を見つけるには、参照ポイントに25を追加して、A99から1セルを引いた値にします。つまりA100 + 99 – 1 = A198。列ではなく行を追加するため、列の文字ではなく、数値のみが変更されます。マクロは行エンマスを挿入する必要があるたびに更新する必要がありますが、それは小さな編集であり、本当にうまく機能するため、時間を費やす価値があります。
Microsoftサポート経由のマクロ
コメント