Excel VBA質問箱 IV

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

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


8327 / 76732 ←次へ | 前へ→

【73980】転記方法
質問  おく  - 13/3/30(土) 11:55 -

引用なし
パスワード
   いつも参考にさせていただいています。
下記のようなデータを

A B
1 A1
1 A2
2 A3
3 A4
3 A5

A列の値が変わるタイミングで

A B  C  D  E
1 A1 A1 A3 A4
1 A2 A2    A5
2 A3
3 A4
3 A5

と転記したいのです。
コード作成したのですが
i = 1
a = 1
b = 3
Do Until Cells(i, 1) = "" 
  If a = Cells(i, 1) Then
    Cells(i, b) = Cells(i, 2)
  Else
    ii = ii + 1
    Cells(ii, b + 1) = Cells(i, 2)
  End If
  i = i + 1
Loop
実行すると

A B  C  D 
1 A1 A1 A3
1 A2 A2 A4
2 A3    A5
3 A4
3 A5

となります。
このコードを改良して出来るでしょうか?
それとも他の方法が良いでしょうか?

よろしくお願いします。
233 hits

【73980】転記方法 おく 13/3/30(土) 11:55 質問
【73981】Re:転記方法 UO3 13/3/30(土) 12:39 発言
【73982】Re:転記方法 おく 13/3/30(土) 12:51 お礼

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