Excel VBA質問箱 IV

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

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


36009 / 76732 ←次へ | 前へ→

【45909】Re:行をコピーし別のセルに行列入替でコピーしたい
発言  へっぽこ  - 07/1/17(水) 19:01 -

引用なし
パスワード
   こういうことですか?

Sub サンプル1()
  Dim 貼付行 As Long
  Dim コピー行 As Long
 
  貼付行 = 1
  コピー行 = 2
  Sheets("Sheet1").Select
  Do Until Cells(コピー行, "A").Value = ""
    Range("A1:D1").Copy
    Sheets("Sheet2").Select
    Cells(貼付行, "A").Select
    Selection.PasteSpecial Paste:=xlPasteAll, _
      Operation:=xlNone, SkipBlanks:=False, _
      Transpose:=True
      
    Sheets("Sheet1").Select
    Cells(コピー行, "A").Resize(, 4).Copy 'Resizeで4列にする
    Sheets("Sheet2").Select
    Cells(貼付行, "B").Select
    Selection.PasteSpecial Paste:=xlPasteAll, _
      Operation:=xlNone, SkipBlanks:=False, _
      Transpose:=True
      
    Sheets("Sheet1").Select
    貼付行 = 貼付行 + 4
    コピー行 = コピー行 + 1
  Loop
End Sub

いまいち話が見えない…
今日は帰ります。

0 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 お礼

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