Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
text to columns
Hi,
I want to write a vba macro that formats all the UsedColumns in an activesheet. The output will be two columns for each initial UsedColumn. There is an empty column between each initial UsedColumn. ### For Each usedrange In ActiveSheet UsedRange.TextToColumns Destination:=???, DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar :="=", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True '1st Columns("???).EntireColumn.AutoFit '2nd Columns("???").EntireColumn.AutoFit '2nd Columns("???").NumberFormat = "#,##0.00" Next usedrange ### Are there any suggestions? Thank you - Gabriel |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Combining Text from 2 Columns into 1 then Deleting the 2 Columns | Excel Worksheet Functions | |||
help with sorting text in columns to match other columns | Excel Discussion (Misc queries) | |||
merge text from 2 columns into 1 then delete the old 2 columns | Excel Worksheet Functions | |||
Linking text columns with text and data columns | Excel Worksheet Functions | |||
extracting text from within a cell - 'text to rows@ equivalent of 'text to columns' | Excel Programming |