Question

In Excel, I am trying to get a macro to move numbers with a “-“.

I have a column E with a list of numbers

54525841-1
454152
1365466
1254566-1
1452577-1

I want a macro to move all the numbers that have a dash or hyphen at the end to column C.
So I would need E1 54525841-1 to be moved to C1.

Answer 1

I got it to work by this:

Sub MoveDash()  
  x = Range("E" & Rows.Count).End(xlUp).Row
  For Each Cell In Range("E2:E" & x)
     If InStr(Cell, "-") <> 0 Then
        Cell.Offset(, 1) = Cell
        Cell.ClearContents
     End If
  Next Cell
end sub