Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

TextToColumns Example

Sub TestTextToColumns()      Dim rg As Range      Set rg = ThisWorkbook.Worksheets("Text to Columns").Range("a20").CurrentRegion      CSVTextToColumns rg, rg.Offset(15, 0)      CSVTextToColumns rg      Set rg = Nothing  End Sub  Sub CSVTextToColumns(rg As Range, Optional rgDestination As Range)      If IsMissing(rgDestination) Or rgDestination Is Nothing Then          rg.TextToColumns , xlDelimited, , , , , True      Else          rg.TextToColumns rgDestination, xlDelimited, , , , , True      End If  End Sub