|
▼kanabun さん:
感謝いたします。うまくいきました。
もうひとつ質問、いいですか。
Range(i & ":" & i)って、どういうことを言っているのですか。
>▼隼 さん:
>
>>これを利用して、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
|
|