ここから質問投稿すると、最大4000ポイント当たる!!!! >>

下記のような2行の表を、1行に組みなおす場合にどのようなこーどが書けばよいか教えてください。お願いいたします。

下記のように表1から表2のように組みなおしたいのですが。A列には必ずしも数字が入っているとは限りません。また、行数も特定されていません。

「Excel VBA等での処理方法」の質問画像

A 回答 (1件)

質問提示のレイアウトでのコードです。


違ったら適宜修正のこと。

'---------------------------------
Sub test()
  Dim R As Long
  Dim R2 As Long
  R2 = 1
  For R = 2 To Cells(Rows.Count, "B").End(xlUp).Row Step 2
    R2 = R2 + 1
    Cells(R2, "E").Value = Cells(R, "A").Value
    Cells(R2, "F").Value = Cells(R, "B").Value
    Cells(R2, "G").Value = Cells(R + 1, "B").Value
  Next R
End Sub
'-----------------------------------

以上です。
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


このカテゴリの人気Q&Aランキング