|
エクセルの区切り位置を指定して実行をマクロ化しています
シート2のB3から値を取得してその値によって
シート1のA列の文字列を区切りたいのですが
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)
'ちょん切る
'
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
Sheet1.Range("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=FULL_cmd '1.
End Sub
1.の箇所でRangeクラスのTextToColumnsメソッドが失敗しましたが表示されます。
よろしくお願いいたします。
|
|