Text to column VBA

[Abhijeet]

Hi

I want to Run Text to Column in each Column of excel sheet please tell me how to run this through VBA

 

[Deepak]

Check this..

http://www.databison.com/vba-code-for-text-to-column/

 

[Marc L]

Hi !

Or, as it depends on data design, use it as well explained in VBA help
(at beginner level) or just activate Macro recorder
before calling it directly from Excel worksheet and well fiil its assistant …
​

 

[Abhijeet]

Hi Deepak

This macro is run for entire columns how can do check last column run macro till that column please tell me

Sub text_to_column()
Application.ScreenUpdating = False
On Error Resume Next
For Each wksht In ActiveWorkbook.Worksheets
    For Each col In wksht.Columns
        Columns(col.Column).TextToColumns _
        Destination:=Cells(1, col.Column), _
        DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, _
        Tab:=True, _
        Semicolon:=False, _
        Comma:=False, _
        Space:=False, _
        Other:=False, _
        FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True
    Next col
Next wksht
Application.ScreenUpdating = True
End Sub

 

[Marc L]

Use Count property …


​

 

[Abhijeet]

Hi
I tried this but how to change in code

With ActiveSheet
        LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
    End With