Excel VBA質問スレ Part7

Excel VBA質問スレ Pa ..

466:デフォルトの名無しさん
08/07/18 01:33:50
>>463
Sub hoge()
Dim startCell As Range
Set startCell = [C4] ' 商品コードの値が始まるセル
Dim i%
While startCell.Offset(i) <> "★"
With startCell.Offset(i)
If .Offset(, 1) = "" Then
.EntireRow.Delete
Else
i = i + 1
End If
End With
Wend
End Sub

次ページ

続きを表示

1を表示