Excel VBA質問箱 IV

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

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


47213 / 76732 ←次へ | 前へ→

【34480】Re:セルの中身を分割して別のセルに割り付ける方法
回答  Kein  - 06/2/3(金) 13:36 -

引用なし
パスワード
   仮にA列にそのデータが入力されているとして、B列以降に分割入力していくなら

Sub Test_Split()
  Dim C As Range
  Dim MyV As Variant
  Dim i As Integer

  For Each C In Range("A1", Range("A65536").End(xlUp)).SpecialCells(2)
   If InStr(1, C.Value, Chr(10)) > 0 Then
     MyV = Split(C.Value, Chr(10))
     For i = LBound(MyV) To UBound(MyV)
      C.Offset(, i + 1).Value = Split(MyV(i), ":")(1)
     Next i
   Else
     C.Offset(, 1).Value = Split(C.Value, ":")(1)
   End If
  Next
End Sub  

0 hits

【34464】セルの中身を分割して別のセルに割り付ける方法 うさ 06/2/3(金) 9:57 質問
【34465】Re:セルの中身を分割して別のセルに割り付... G-Luck 06/2/3(金) 10:32 回答
【34480】Re:セルの中身を分割して別のセルに割り付... Kein 06/2/3(金) 13:36 回答

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