|
▼に さん:
↑のばあい、スペースが1つもないことには対応しましたが、
逆のケース スペースが2か所以上ある場合に、またエラーになります。
そこで、見検証ですが、こうしてください。
Sub Try2()
Dim v, t
Dim i As Long
Dim j As Long
With Workbooks("A.xls").Worksheets(1)
v = .Range("G2", _
.Cells(.Rows.Count, "G").End(xlUp)).Resize(, 2).Value
End With
For i = 1 To UBound(v)
t = Split(v(i, 1), " ", 2) '最初のスペースで 前後に分割する
For j = 0 To UBound(t)
v(i, j + 1) = t(j)
Next
Next
With Workbooks("B.xls").Worksheets(1)
.Columns("F:G").ClearContents
.Range("F2").Resize(UBound(v), 2).Value = v
End With
End Sub
|
|