convert text to data with decimals
Hello
I use this sub to convert columns in a workbook
(generated in SQL-server). Data has text format and I
need to get data format. This works ok - except when data
has decimals - then it remains in text format. I canīt
figure out what to do - any assistance appreciated!
Sub FormatColValue2()
' formats imported text columns to values
Dim i As Long
Dim rng As Range
Dim col As Long
For i = LBound(vArr) To UBound(vArr)
col = vArr(i)
Set rng = Range(Cells(2, col), Cells(Rows.Count,
col).End(xlUp))
rng.Formula = rng.Value
Next
End Sub
|