|
横一行が1データで、項目がAからDまであります。このデータを行列入替し、さらに別シートにコピーしたいのです。1回だけならマクロの記録で以下のようになりました。
Range("A1:D1").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
データが複数行ありますので、この処理を繰り返したいので、doループを用いて、
Range("A1:D1").Select
Do Until ActiveCell.Value = ""
Selection.Copy
Sheets("Sheet2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Selection.Offset(1).Select
Loop
としましたが、上記ですと、コピー元はどんどんコピーしていきますが、ペースト先は同じ場所に上書きペーストを繰り返すだけです。次々と縦にペーストしていきたいのです。
たぶんブランクのセルを指定してそこへペーストしなさいと書けばよいのでしょうが、blankは知っているものの、埋まっているセルをどう表現するのか知りません。
また、A1:D1は全ての行の見出しとなっており、A1:D1とA2:D2、A1:D1とA3:D3と全ての行にA行を見出しとしてつけたいのです。
もう全くわかりません。
ご教授くださると大変助かります。宜しくお願いいたします。
|
|