Excel VBA質問箱 IV

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

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


23399 / 76738 ←次へ | 前へ→

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

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

おじゃまします。

Excel2000以降なら、スペースで文字列を分割できるから、
こんな方法(配列内で処理)も可能です。

Sub Try1()
  Dim v, t
  Dim i As Long
  
  With Workbooks("ファイルA").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))
    v(i, 1) = t(0)
    v(i, 2) = t(1)
  Next
  With Workbooks("ファイルB").Worksheets(1)
    .UsedRange.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 お礼

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