以下は、Excel VBAを使用して2行目から500行目までの範囲でC列に35938、またはI列に130または479の数値が含まれる行を削除するためのマクロコードです。
“`vba
Sub DeleteRows()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Set ws = ActiveSheet ‘ マクロを実行するシートを指定してください
lastRow = ws.Cells(ws.Rows.Count, “C”).End(xlUp).Row ‘ C列の最終行を取得
‘ 最終行から上に向かってループ
For i = lastRow To 2 Step -1
If (ws.Cells(i, “C”).Value = 35938 Or ws.Cells(i, “I”).Value = 130 Or ws.Cells(i, “I”).Value = 479) Then
ws.Rows(i).Delete ‘ 行を削除
End If
Next i
End Sub
“`
このマクロを実行するには、以下の手順に従ってください。
1. Excelファイルを開きます。
2. ALT + F11キーを押して、VBAエディタを開きます。
3. 挿入 → モジュールを選択します。
4. コピーしたコードをモジュールウィンドウに貼り付けます。
5. ファイル → マクロを選択し、`DeleteRows`を実行します。
6. 条件に合致する行が削除されます。
ただし、マクロを実行する前に、データのバックアップを取ることをお勧めします。また、マクロを実行するシートを適切に指定してください（上記のコードでは`ActiveSheet`が使用されています）。
また、マクロコードの品質を高めるために、以下の点に改善できます。
1. データの範囲を明確にする: `lastRow`変数に500を指定する代わりに、範囲を動的に決定する方法を使用すると、より柔軟になります。例えば、`ws.Range(“C2:C500”).End(xlUp).Row`とすることで、実際のデータの範囲を取得することができます。
2. 条件の比較をシンプルにする: 現在のコードでは、条件が3つのOR演算子で結合されています。代わりに、複数の条件を配列に格納し、ループ内で条件をチェックする方法を使用すると、コードをよりシンプルにすることができます。
3. ユーザーフレンドリーなインターフェースを提供する: マクロを実行する前に、ユーザーが条件を入力するダイアログボックスを表示するなど、ユーザーフレンドリーなインターフェースを提供することができます。
これらの改善点を考慮して、マクロコードを最適化することができます。しかし、具体的な改善方法は、使用するExcelバージョンやユーザーの要件によって異なる場合があります。