- Excel VBA 質問スレ Part41©2ch.net
948 ：947[sage]：2016/06/24(金) 22:14:45.53 ID:AYTMSqmc - ソースはこちら。
Dim i As Long
Sub DelRow()
Dim c As Range
Dim blnFlag As Boolean
blnFlag = False
'最終行iから上に進む
For i = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row To 1 Step -1
'G〜Tを判定。ワイルドカードで検索し何らかの文字があればblnFlagをTrueにする。
For Each c In Range(Cells(i, "G"), Cells(i, "T"))
'値が入っていたらTrue
If c.Value <> Empty Then
blnFlag = True
End If
Next c
If blnFlag = False Then
Range(i & ":" & i).Delete
Else
blnFlag = False
End If
Next i
End Sub
|