|
▼隼 さん:
>これを利用して、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
>としたのですが、うまくいきません。
>どのように書けばいいのでしょうか。
Select Case 文を使えばいいと思います
>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
Select Case Cells(i, 1).Value
Case 1234,1236,1237
Rows(i).Delete
End Select
> Next i
>End Sub
|
|