I am looking to create a VBA script that will take everything pasted in a sheet and perform a loop with TextToColumns for each column until it reaches "B:B". (Let's say the loop will start at column AZ, and works itself to the left.) It has to use "Space" and OtherChar:="/". I have attached a copy of what I am looking for. Preferably, if possible, I'd also like it to through a sum at the bottom of the columns, the tables are made of a day's 30 minute intervals, so the rows will never change, however I may need to include more columns. (A whole month or more's worth.)
I am not too familiar with incorporating this type of code, so if you could show me exactly where it fits in, I'd really appreciate it.
Thanks for at least looking at this thread!
View attachment Book1.xlsx
I am not too familiar with incorporating this type of code, so if you could show me exactly where it fits in, I'd really appreciate it.
Thanks for at least looking at this thread!
View attachment Book1.xlsx
Code:
Sub TextToColumns()
Selection.TextToColumns _
Destination:=Cells(Col.Row, Col.Column), _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, _
Space:=True, _
Tab:=True, _
Semicolon:=False, _
Comma:=False, _
Space:=True, _
Other:=True, OtherChar:="/"
End Sub