Macro Monday Text to Columns Solution

Описание: Grab the Free VBA Quick Reference Guide
https://www.chrisjterrell.com/excel-v...
Text to Columns Solution

Sub TextToCols()

Dim rng As Range

ibox = InputBox("Enter Delimiter")

s = Split(ActiveCell, ibox)

Set rng = ActiveCell
rng.Select

Set rng = rng.Resize(1, 1 + UBound(s))
rng.Select

rng = s

'rw = ActiveCell.Row
'cl = ActiveCell.Column
'
'For c = 0 To UBound(s)
' Cells(rw, cl + c) = s(c)
'Next

End Sub