Excel VBA質問箱 IV

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

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


54840 / 76732 ←次へ | 前へ→

【26676】Re:セルの値の移動
回答  かみちゃん  - 05/7/13(水) 22:17 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>この表の1列目の値が”カンマ”で区切ってあります。カンマの数は決まっていません。
>”カンマ”の次の値を列の次のセルに入れてあげて、項目1以降の値をそのままIDの行に反映させてあげたい

まず、質問の仕方がすばらしいと感じました。
処理前のデータと処理後の期待している結果がハッキリわかりました。

そこで、以下のようなコードでできると思います。
元のシートをアクティブにすると、Sheet2に結果を出力します。
なお、元のシートは、IDがA列、項目1からはB列以降に入れてあるものとして、
B列からIV列までのデータをコピーするという方法を使っています。

Option Explicit
Sub Macro1()
 Dim RowNo As Long
 Dim RowNo2 As Long
 Dim strID As Variant
 Dim i As Integer
 
 RowNo = 2
 RowNo2 = 2
 Do Until Cells(RowNo, 1).Value = ""
  strID = Split(Cells(RowNo, 1).Value, ",")
  For i = 0 To UBound(strID)
   'Sheet2に結果を出力する
   With Sheets("Sheet2").Cells(RowNo2, 1)
    .Value = "'" & strID(i)
    Range("B" & RowNo & ":" & "IV" & RowNo).Copy Destination:=.Offset(, 1)
   End With
   RowNo2 = RowNo2 + 1
  Next
  RowNo = RowNo + 1
 Loop
 MsgBox "処理を終了しました。"
End Sub

0 hits

【26669】セルの値の移動 懐園剣 05/7/13(水) 17:17 質問
【26676】Re:セルの値の移動 かみちゃん 05/7/13(水) 22:17 回答
【26677】Re:セルの値の移動 かみちゃん 05/7/13(水) 22:40 回答
【26709】Re:セルの値の移動 懐園剣 05/7/14(木) 15:39 質問
【26720】Re:セルの値の移動 かみちゃん 05/7/14(木) 22:56 発言
【26803】Re:セルの値の移動 懐園剣 05/7/18(月) 20:48 お礼
【26780】Re:セルの値の移動 Hirofumi 05/7/17(日) 21:16 回答
【26804】Re:セルの値の移動 懐園剣 05/7/18(月) 20:50 お礼

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