行・列関連(マクロ)

○列を挿入する

’A列に１列挿入する
Columns("A").Insert

○最終行の取得

'変数を指定する
Dim LastRow1 As Long

'A列を最終行から上に数える
LastRow1 = Range("A").Cells(Rows.Count, 1).End(xlUp).Row

※LastRow1 = Range("A").Cells(Rows.Count, 1).End(xlDown).Row
で下から数える