Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub stringCompareColumns()
- For checkRow = 1 To Range("B1").End(xlDown).Row
- If StrComp(Range("B" & checkRow).Value, Range("C" & checkRow).Value) = 1 Then Range("B" & checkRow).Clear
- Next
- End Sub
Add Comment
Please, Sign In to add comment