導入：なぜ「行・列の削除」をコード化する必要があるのか
日々の業務で、不要なデータ列を削除したり、空白行を詰めたりする作業を、手動で行っていませんか？件数が少ないうちは手作業でも問題ありませんが、毎日繰り返す定型業務や、数万行に及ぶデータ処理では、手作業は時間の無駄であるだけでなく、操作ミスによるデータ欠損のリスクも伴います。VBAを使ってこのプロセスを自動化することで、正確かつ瞬時にデータ整形を終えることができます。
基礎知識：RangeオブジェクトとDeleteメソッド
Excel VBAでセルや行・列を操作する際、基本となるのがRangeオブジェクトです。行や列を削除するには、Deleteメソッドを使用します。
ここで重要なポイントは、削除対象をどう指定するかです。行全体を指す場合は「Rows」、列全体を指す場合は「Columns」を使用します。また、削除する際に「Shift引数」を意識する必要はありません。行・列全体を指定して削除する場合、Excelは自動的に残りのデータを詰め上げるからです。
実装/解決策：削除の対象を指定する
VBAで削除を行う際、現場でよくあるミスは「ループ処理中に削除を行い、インデックスがずれてしまう」ことや「削除対象の指定が動的でないこと」です。
例えば、特定の条件（値が0の行など）で削除を行う際は、「下から上に向かってループする」のが鉄則です。上から削除していくと、行番号が繰り上がるため、意図しない行が飛ばされてしまうからです。
サンプルプログラム：実務で使える行・列削除のコード例
以下のサンプルコードは、特定の行・列を削除する基本形と、実務で役立つ条件付き削除の例です。
Sub DeleteRowAndColumn()
‘ — 1. 単純な行・列の削除 —
‘ 5行目全体を削除
Rows(5).Delete
‘ B列からD列までを一度に削除
Columns(“B:D”).Delete
‘ — 2. 実務向け：条件に一致する行を削除 —
‘ A列に「不要」という文字がある行を、下から上に向かって削除
Dim i As Long
Dim lastRow As Long
‘ 最終行を取得（データが途切れない前提）
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
‘ 下から上にループすることで、削除による行番号のズレを防ぐ
For i = lastRow To 1 Step -1
If Cells(i, 1).Value = “不要” Then
Rows(i).Delete
End If
Next i
MsgBox “データの整理が完了しました。”
End Sub
応用・注意点：現場で陥りやすいバグを回避する
1. シートの指定を忘れずに
ActiveSheetに依存した書き方はバグの元です。「Worksheets(“Sheet1”).Rows(1).Delete」のように、必ずシートを明示的に指定する癖をつけましょう。
2. 削除対象の誤判定
最終行の取得（End(xlUp)）を行う際、データが途中に空行を含んでいると、正しく最終行を取得できません。その場合は、データの有無が確実な列を基準にするか、テーブル機能（ListObject）を利用することを検討してください。
3. 警告メッセージの制御
大量の削除を行う際、処理を高速化したい場合は「Application.ScreenUpdating = False」を冒頭に入れ、最後にTrueに戻すことで、画面描画を停止し処理速度を劇的に向上させることができます。
これらのTipsを活用して、ぜひ「繰り返し作業」をゼロにする仕組み作りを目指してください。
