値の入っているA列の最終行以降を削除
※)10000行までを削除対象とする

Excel-VBA
Dim 最終行 As Long
最終行 = Cells(Rows.Count, 1).End(xlUp).Row + 1
Range(最終行 & ":10000").Delete
Sign up for free and join this conversation.
Sign Up
If you already have a Qiita account log in.