Excelマクロを利用してコピーする方法について

質問

不特定の行を不特定の行にコピーするマクロを教えて下さい

Rangeには直接セル位置を指定しなければならないと
思っているので何か方法がないでしょうか？
横に長い行を不特定位置にコピーしたいので

　　　　 　　　　 Ａ列 　Ｂ列　　Ｃ列　　Ｄ列

不特定の行　 AAA 111 222 333
不特定の行　 BBB 222 333 444
不特定の行
不特定の行
不特定の行
不特定の行 CCC 333 444 555　
不特定の行 DDD 444 555 666 　
不特定の行 EEE 555 666 777　
不特定の行 FFF 666 777 888　

CCCが入力されているセルをクイック後、マクロを起動、ＢＢＢの下の行のセルを
クイック後、ＣＣＣの行をそこにコピー

そんな方法でのコピーがしたいのです
何か方法があったらお願いします

回答No.3

nag0720

パブリック変数とSelectionChangeイベントを併用すれば可能です。

Dim CopyRow As Integer

Private Sub CommandButton1_Click()
CopyRow = ActiveCell.Row
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If CopyRow > 0 Then
Rows(CopyRow).Select
Selection.Copy
Rows(Target.Row).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Target.Select
CopyRow = 0
End If
End Sub

コピーしたい行でボタンをクリックし、その後で貼り付けたい行をクリックするとコピーされます。

お礼

ありがとうございました

チャレンジしてみます

回答No.2

kmetu

クリックされているセルは
ActiveCell
で求められます
その行は
ActiveCell.Row
になります。

ただ、ご質問の動作は普通にコピーペーストしてもマクロで動作させても同じ手間だと思いますが…

お礼

ありがとうございました

いろいろチャレンジしてみます

回答No.1

notnot

無理だと思います。

CCCが入力されているセルをクリック後、マクロを起動、
ＢＢＢの下の行のセルをクリック後、別のマクロを起動すると、ＣＣＣの行をそこにコピー

というのなら出来ます。

お礼

ありがとうございました

仕事の関係で前月のExcelデータの項目や商品名、価格等を利用する予定で
出来ればコピー元のある巾の行をいちいち指定するのでなく
その左端のセルをクイック、マクロをボタン化し
コピー先のセルをクイックと思いましたが
なかなか難しいです

本当にありがとうございました