超シンプルVBAで最終行を取得して関数を自動コピーする方法

ExcelでA列の最終行を取得し、B2からF2にある関数をその最終行までコピーしたい場合、VBAを使うと簡単に自動化できます。この記事では、超シンプルなコードで実現する方法を解説します。

最終行の取得方法

VBAではA列の最終行を次のように取得できます。

lastRow = Cells(Rows.Count, "A").End(xlUp).Row

このコードはA列の最下行から上方向にデータを探し、最後に値がある行番号を返します。

B2からF2の関数をコピーする方法

取得した最終行までB2からF2の関数をコピーするには、以下のように範囲を指定します。

Range("B2:F2").Copy Range("B" & lastRow & ":F" & lastRow)

これでB列の最終行からF列の同じ行まで関数が貼り付けられます。

超シンプルなVBAサンプルコード

実際のVBAコードは以下のようにまとめられます。

Sub CopyFormulasToLastRow()
Dim lastRow As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("B2:F2").Copy Range("B" & lastRow & ":F" & lastRow)
End Sub

このコードを標準モジュールに追加して実行するだけで、希望の操作が完了します。

まとめ

Excelで最終行の取得と関数の自動コピーは、VBAを使うと非常に簡単に実現できます。今回紹介したコードは超シンプルで、初心者でもすぐに活用可能です。