Excelの行・列を１行指定して削除
Excelで、行や列を指定して削除する方法です。
このようなシートがあった際に、10行目を消すには、
Visual Basic:
-
Sub test()
-
ActiveSheet.Rows(10).Delete
-
End Sub
となります。
列で指定する場合は、
ActiveSheet.Columns(消したい列の番号).Delete
となります。
注意として、例えば1～10行を消す場合、
Visual Basic:
-
Sub test()
-
Dim i As Integer
-
-
For i = 1 To 10
-
ActiveSheet.Rows(i).Delete
-
Next i
-
-
End Sub
と書いてしまいがちかもしれませんが、これで実行すると、
のようになります。
これは１行ずつ行を消すことで、消したと同時に１行ずつ上に動くためです。
以下のように書く必要があります。
Visual Basic:
-
Sub test()
-
Dim i As Integer
-
-
For i = 1 To 10
-
ActiveSheet.Rows(1).Delete
-
Next i
-
-
End Sub
1行目を10回消す、という形になります。
