08/07/19 03:55:10
>>463
あとWhile ... Wendという使い方もあるけど
普通はDo～Loopを使うよ
Do～Loopを使う場合はこんな感じ
Sub ★まで削除()
Dim TCell As Range
Dim iX As Integer
Set TCell = Range("B2") ' ★のある列のタイトル部分(商品コードとか数量と書いてあるセル)
iX = 1
Do Until TCell.Offset(iX, 0).Value = "★"
With TCell.Offset(iX, 0)
If .Value = "" Then
.EntireRow.Delete xlShiftUp
Else
iX = iX + 1
End If
End With
Loop
End Sub