Excel VBA質問箱 IV

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

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


49569 / 76732 ←次へ | 前へ→

【32069】Re:コピーについて
回答  awu  - 05/12/5(月) 17:51 -

引用なし
パスワード
   貼付ける行が違うだけですので、列は元々同じと思いますが・・・

W列より右にデータが無く、行をコピーしても良い場合は、

Sub Macro1()
  Rows("1:10").Copy
  Rows(11).Select
  Selection.PasteSpecial Paste:=xlPasteAll
  Application.CutCopyMode = False
End Sub


貼付け先範囲のW列より右にデータがあり、そのまま残す場合や
コピー元範囲の右にコピーしたくないデータがある場合 (ちょっと手間)

こんな感じで如何でしょうか。

Sub Macro2()
Dim Rng As Range
Dim Rw As Long
With Range("A1:W10")
   .Copy
  Range("A11").Activate
  ActiveSheet.Paste
  For Rw = .Row To .SpecialCells(xlCellTypeLastCell).Row
    ActiveCell.Offset(Rw - 1).RowHeight = Rows(Rw).Height
  Next Rw
End With
Application.CutCopyMode = False
End Sub

0 hits

【32056】コピーについて hatena 05/12/5(月) 16:22 質問
【32057】Re:コピーについて かみちゃん 05/12/5(月) 16:25 発言
【32059】Re:コピーについて hatena 05/12/5(月) 16:39 回答
【32063】Re:コピーについて Jaka 05/12/5(月) 17:20 回答
【32064】Re:コピーについて Jaka 05/12/5(月) 17:23 発言
【32068】Re:コピーについて hatena 05/12/5(月) 17:42 お礼
【32069】Re:コピーについて awu 05/12/5(月) 17:51 回答
【32071】Re:コピーについて hatena 05/12/5(月) 18:15 お礼
【32075】Re:コピーについて ganko 05/12/5(月) 21:10 発言

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