Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

36023 / 76738

←次へ　｜　前へ→


	【45901】行をコピーし別のセルに行列入替でコピーしたい

超初心者 - 07/1/17(水) 18:28 -


	引用なし

	パスワード

横一行が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行を見出しとしてつけたいのです。

もう全くわかりません。

ご教授くださると大変助かります。宜しくお願いいたします。

0 hits

▼

【45901】行をコピーし別のセルに行列入替でコピーしたい 超初心者 07/1/17(水) 18:28

≪