Cut cells from column A that contain "/" Paste them to column B

Y

Yogi_Bear_79

Subject says it all. How do I search column A, find all cels that contain
the backslash character, then cut them from A and place them in Column B
 
F

Frank Kabel

Hi
try the following macro:
Sub cut_rows()
Dim lastrow As Long
Dim row_index As Long
Application.ScreenUpdating = False
lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For row_index = 1 to lastrow
with Cells(row_index, 1)
If instr(.Value, "\")>0 then
.offset(0,1).value=.value
.clearcontents
End If
end with
Next
Application.ScreenUpdating = True
End Sub
 
Top