Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


23385 / 76732 ←次へ | 前へ→

【58714】Re:1つセルの中身を2セルに分けるには
発言  kanabun  - 08/11/5(水) 18:50 -

引用なし
パスワード
   ▼に さん:

↑のばあい、スペースが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

0 hits

【58702】1つセルの中身を2セルに分けるには 08/11/5(水) 14:32 質問
【58703】Re:1つセルの中身を2セルに分けるには 08/11/5(水) 14:50 発言
【58705】Re:1つセルの中身を2セルに分けるには りった 08/11/5(水) 15:08 回答
【58706】Re:1つセルの中身を2セルに分けるには kanabun 08/11/5(水) 15:33 発言
【58707】Re:1つセルの中身を2セルに分けるには kanabun 08/11/5(水) 15:35 発言
【58708】Re:1つセルの中身を2セルに分けるには 08/11/5(水) 16:50 質問
【58712】Re:1つセルの中身を2セルに分けるには kanabun 08/11/5(水) 18:33 発言
【58714】Re:1つセルの中身を2セルに分けるには kanabun 08/11/5(水) 18:50 発言
【58715】Re:1つセルの中身を2セルに分けるには 08/11/5(水) 19:21 質問
【58716】Re:1つセルの中身を2セルに分けるには kanabun 08/11/5(水) 19:37 発言
【58717】Re:1つセルの中身を2セルに分けるには 08/11/5(水) 20:04 質問
【58719】Re:1つセルの中身を2セルに分けるには kanabun 08/11/5(水) 21:02 発言
【58738】Re:1つセルの中身を2セルに分けるには 08/11/6(木) 11:44 質問
【58740】Re:1つセルの中身を2セルに分けるには kanabun 08/11/6(木) 11:51 発言
【58745】Re:1つセルの中身を2セルに分けるには 08/11/6(木) 13:54 お礼

23385 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free