malleshg24
08-28-2018, 12:04 AM
Hi Team,
I want to convert the number which are in text to number. I use below code it works.
is there any other way to shorten this code, Thanks.
Sub test()
Dim sh As Worksheet
Set sh = ThisWorkbook.Worksheets("Sheet1")
With sh
.Columns("A").NumberFormat = "General"
.Columns("A").TextToColumns , xlDelimited, , , , , False, False, False
.Columns("C").NumberFormat = "General"
.Columns("C").TextToColumns , xlDelimited, , , , , False, False, False
.Columns("H").NumberFormat = "General"
.Columns("H").TextToColumns , xlDelimited, , , , , False, False, False
.Columns("E").NumberFormat = "General"
.Columns("E").TextToColumns , xlDelimited, , , , , False, False, False
.Columns("F").NumberFormat = "General"
.Columns("F").TextToColumns , xlDelimited, , , , , False, False, False
End Sub
Thanks in advance for your help!!!
Regards,
Mallesh
I want to convert the number which are in text to number. I use below code it works.
is there any other way to shorten this code, Thanks.
Sub test()
Dim sh As Worksheet
Set sh = ThisWorkbook.Worksheets("Sheet1")
With sh
.Columns("A").NumberFormat = "General"
.Columns("A").TextToColumns , xlDelimited, , , , , False, False, False
.Columns("C").NumberFormat = "General"
.Columns("C").TextToColumns , xlDelimited, , , , , False, False, False
.Columns("H").NumberFormat = "General"
.Columns("H").TextToColumns , xlDelimited, , , , , False, False, False
.Columns("E").NumberFormat = "General"
.Columns("E").TextToColumns , xlDelimited, , , , , False, False, False
.Columns("F").NumberFormat = "General"
.Columns("F").TextToColumns , xlDelimited, , , , , False, False, False
End Sub
Thanks in advance for your help!!!
Regards,
Mallesh