Hi Amar,
Try This,
Sub test()
Dim rngData As Range
With ThisWorkbook.Worksheets("Sheet1")
Set rngData = .Range("A1").CurrentRegion
rngData.TextToColumns Destination:=Range("A1"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, Consecutive
W dniu piątek, 1 marca 2013 12:48:12 UTC+1 użytkownik amar takale napisał:
I don't know what is your question. If u want to extract using:
> *Date -> text as column -> constant width a*nd and U adding require split
> columns for date
>
For date with *dash* using as separator for split colu
