Sub test()myrow = Range("CM65536").End(xlUp).RowFor i = 1 To myrowIf Range("CW" & i) = "真" ThenRange("CM" & i & ":CV" & i).ClearContentsEnd IfNextEnd Sub