唐草 @luz__blanca

Sub 任意の列に区切位置をかます()
'ひとつの列に数値と文字列が混在している際のデータクレンジングに使用
Dim i

i = Application.InputBox("列番号を入力", , , , , , , 1)
Columns(i).TextToColumns

End Sub