VBAです。 Private Sub btnOk_Click() Dim lastRow As Long With Worksheets("test") lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1

Visual Basic | Excel22閲覧

ベストアンサー

0

その他の回答(1件)

0

>LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 >この文の意味 .Cells(.Rows.Count, 1) シートの最終行、A列。(=A1048576) .Cells(.Rows.Count, 1).End(xlUp) A1048576を選択して、CTRL+↑を操作したときにジャンプするセル(A列最終行) LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 A列最終行の行番号+1を変数へ代入 >途中のMeの意味 このプログラムが格納されているモジュールを示します。 今回の場合は、ユーザーフォームモジュールかワークシートモジュールを表します。