Excelで数式を使用して行を追加する方法

Excelワークシートに空白行をすばやく追加したい場合、行を追加するExcel関数や数式がないことに驚かれるかもしれません。しかし、指定した場所に一定数の行をすぐに追加するマクロを作成することは可能です。この記事では、Excelワークシートに新しい行を追加する簡単なマクロを作成する方法を紹介します。既存の数式をワークシートの新しい行にコピーする方法を知りたいだけの場合は、そちらも紹介します。

方法 1

方法 1 の 2:

マクロでシートに行を追加する

PDF形式でダウンロード

これを行うには、Finder（Mac）またはエクスプローラー（Windows）でデータを含むExcelブックをダブルクリックします。また、すでにExcelを開いている場合は、ファイル→開くの順にクリックし、データを含むファイルを選択する方法もあります。
2
編集リボンに「開発」タブが表示されていることを確認する　「開発」タブが表示されておらず、Windowsを使用している場合は、ファイルタブを開き、オプション→リボンのユーザー設定の順にクリックして、「メインタブ」の下の「開発」の横にあるチェックボックスにチェックを入れましょう。
- Macを使用している場合は、画面上部のExcelメニューをクリックし、環境設定...を選択して、「開発」タブを有効にしましょう。リボンとツールバーをクリックし、「リボンのカスタマイズ」カテゴリの「開発」チェックボックスにチェックを入れて、保存をクリックします。
これを行うには、開発タブをクリックし、Visual Basicを選択します。また、Alt＋F11キーを押す方法もあります。
ウィンドウの左側にある垂直メニューに、ブックのシートの一覧が表示されます。これらのいずれかを右クリックすると、別のドロップダウンメニューが表示されます。
にカーソルを合わせ、標準モジュールをクリックする　挿入にカーソルを合わせると、そのメニューの右側にメニューがポップアップ表示されます。標準モジュールをクリックすると、VBAコードを入力して実行するためのスペースが作成されます。
6
以下のコードをVBAウィンドウに入力する　
```
Sub Insert_Rows_Loop()     Dim CurrentSheet As Object     ' 選択したすべてのシートをループします。     For Each CurrentSheet In ActiveWindow.SelectedSheets        ' 各シートの先頭に5行挿入します。        CurrentSheet.Range("a1:a5").EntireRow.Insert     Next CurrentSheetEnd Sub
```
- このコードでは、A1からA5までの行、つまりシートの先頭に空白行を5行挿入します。^{[1]X出典文献}これらのセルアドレスは、シートの最後の行から任意の終了点までなど、コードを配置したい場所に置き換えることができます。
キーを押す　また、VBAエディターの書き込みスペースの上にある緑色の「再生」アイコンをクリックする方法もあります。
をクリックして続行する　これで、シートに行が追加されます。
広告

方法 2

方法 2 の 2:

新しい行に数式をコピーする

PDF形式でダウンロード

1
プロジェクトをExcelで開く　プロジェクトをExcelで開く　これを行うには、Finder（Mac）またはエクスプローラー（Windows）でデータを含むExcelブックをダブルクリックします。また、すでにExcelを開いている場合は、ファイル→開くの順にクリックし、ファイルを選択する方法もあります。
- データに追加した新しい行に既存の数式をコピーする方法を知りたい場合は、この方法を使用します。
2
データ内に行を挿入する　使用するキーボードショートカットでは、その上の行からしか数式をコピーできないので、データの間または末尾に行を挿入するようにしましょう。
- 行を挿入するには、新しい行を追加する下の行を右クリックし、挿入をクリックします。
3
新しい行のうち、数式をコピーしたいセルクリックして選択する　このキーボードショートカットは、上のセルから選択したセルに数式をコピーするものであることを忘れないようにしましょう。
- セルが強調表示されますが、これは、そのセルが選択されていることを示すものです。
キーを押す　このショートカットはMacでもWindowsでも同じで、上のセルから数式をコピーします。^{[2]X出典文献}
広告