Excel VBA質問箱 IV

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

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


36016 / 76732 ←次へ | 前へ→

【45902】Re:行をコピーし別のセルに行列入替でコピーしたい
回答  へっぽこ  - 07/1/17(水) 18:35 -

引用なし
パスワード
   こんにちは。
何らかの方法で貼り付ける先をずらしてゆけば良いので以下のような
感じでしょうか。

Sub サンプル()
  Dim 貼付行 As Long
  
  貼付行 = 1
  
  Range("A1:D1").Select
  Do Until ActiveCell.Value = ""
    Selection.Copy
    Sheets("Sheet2").Select
    Cells(貼付行, "A").Select
    Selection.PasteSpecial Paste:=xlPasteAll, _
      Operation:=xlNone, SkipBlanks:=False, _
      Transpose:=True
    貼付行 = 貼付行 + 4
    Sheets("Sheet1").Select
    Selection.Offset(1).Select
  Loop
End Sub
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 お礼

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