|
A
1 1234
2 1235
3 1236
4 1237
5 1238
とある場合です。
あるプロシージャを参考にして、下記のようにすると、1235の行が
削除できました。
Sub test01()
Dim lRow As Long
Dim i As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = lRow To 1 Step -1
If Cells(i, 1).Value = 1235 Then
Range(i & ":" & i).Delete
End If
Next i
End Sub
これを利用して、1234,1236,1237の各行を削除させようと、
Sub test01()
Dim lRow As Long
Dim i As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = lRow To 1 Step -1
If Cells(i, 1).Value = 1234,1236,1237 Then
Range(i & ":" & i).Delete
End If
Next i
End Sub
としたのですが、うまくいきません。
どのように書けばいいのでしょうか。
|
|