質問: excel vba等での処理方法 下記のような2行の表を、1行に組みなおす場合にどのようなこーどが書けばよいか教えてください。お願いいたします。 下記のように表1から表2のように組みなおしたいのですが。a列には必ずしも数字が入っているとは限りません。また、行数も特定されていません。
回答: 質問提示のレイアウトでのコードです。 違ったら適宜修正のこと。 '--------------------------------- 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 '----------------------------------- 以上です。