Excel VBA質問箱 IV

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

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


36017 / 76732 ←次へ | 前へ→

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

もう全くわかりません。

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

【45901】行をコピーし別のセルに行列入替でコピーしたい 超初心者 07/1/17(水) 18:28 質問
【45902】Re:行をコピーし別のセルに行列入替でコピ... へっぽこ 07/1/17(水) 18:35 回答
【45904】Re:行をコピーし別のセルに行列入替でコピ... 超初心者 07/1/17(水) 18:43 お礼
【45905】Re:行をコピーし別のセルに行列入替でコピ... へっぽこ 07/1/17(水) 18:47 発言
【45907】Re:行をコピーし別のセルに行列入替でコピ... 超初心者 07/1/17(水) 18:49 質問
【45909】Re:行をコピーし別のセルに行列入替でコピ... へっぽこ 07/1/17(水) 19:01 発言
【45933】Re:行をコピーし別のセルに行列入替でコピ... 超初心者 07/1/18(木) 11:40 お礼
【45940】Re:行をコピーし別のセルに行列入替でコピ... へっぽこ 07/1/18(木) 12:14 発言
【45941】Re:行をコピーし別のセルに行列入替でコピ... 超初心者 07/1/18(木) 12:29 お礼

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