Delete text from column C

[Abhishekghorpade]

Hi,

Please give me macro to delete all text from column C... I have cells with numbers that should be untouched.

Thanks

 

[Abhishekghorpade]

I am not sure what you meant by "new Sheet1" in Message #5 , so I simply put it on Sheet1 starting at cell A1. See if this does what you want...

Sub UniqueNumbersInColumnC()
  Dim R As Long
  With CreateObject("Scripting.Dictionary")
    For R = 1 To Cells(Rows.Count, "C").End(xlUp).Row
      If Len(Cells(R, "C").Value) Then .Item(Cells(R, "C").Value) = 1
    Next
    Sheets("Sheet1").Range("A1").Resize(.Count) = Application.Transpose(.Keys)
  End With
End Sub

Thank you so much... Thats exactly what i wanted.. You guys are really awesome