|
Sub Macro1()
'
'変数初期化
i = 3
'ループ開始
Do
'データ取得
atai = Worksheets("sheet2").Range("B" & i).Value
'取得した値がスペースの場合、ループ終了
If atai = "" Then
Exit Do
End If
If i <> 3 Then
FULL_cmd = FULL_cmd & ","
End If
FULL_cmd = FULL_cmd & " Array(" & atai & ", 2)"
i = i + 1
Loop
FULL_cmd = "Array(" & FULL_cmd & ")"
MsgBox (FULL_cmd)
'ちょん切る
Sheet1.Range("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=FULL_cmd
'幅を調節
Columns("A:BR").EntireColumn.AutoFit
End Sub
失礼しました Selection.TextToColumns はSheet1.Range("A:A")に
書き換えてあります。
|
|