|
▼nonoka さん:
改訂版です。
Sub Sample2()
Dim c As Range
Dim f As Range
If Sheets("INPUT").Range("B5").Value <> ChrW(10003) Then Exit Sub
Application.ScreenUpdating = False
With Sheets("Schedule")
Set c = .Columns("L").Find(What:="Before operation", LookAt:=xlWhole)
If c Is Nothing Then Exit Sub
Set f = c
Do
If Len(c.Offset(, 1).Value) = 0 Then 'M列が空白なら
c.EntireRow.Range("K1:AQ1").ClearContents
End If
Set c = .Columns("L").FindNext(After:=c)
If c Is Nothing Then Exit Do
If c.Address = f.Address Then Exit Do
Loop
End With
Application.ScreenUpdating = True
End Sub
|
|