エクセル VBA ダブルクリックコピー

質問

A B C
a1 a 1
b 2
c 3

B列とC列にデータが入っております。
※行数は変動します。

①A2にはB2&C2と数式を入力
②A2を選択して十をダブルクリックでコピー
しB列の値が入ってる最後の行までコピー。
③ A2を選択して、ctr + shift → ↓コピー

これをVBAで作成出来ますでしょうか？

回答No.1

SI299792 · ベストアンサー

コピー（Ａ列が緑の点線で囲まれた）状態になればいいのですか。
Option Explicit
'
Sub Macro1()
　　Dim REnd As Long
'
　　REnd = Cells(Rows.Count, "B").End(xlUp).Row
　　Range("A2:A" & REnd) = "=B2&C2"
　　Range("A2:A" & REnd).Copy
End Sub

お礼

理想通りの処理となりました！
ありがとうございました。

回答No.2

imogasi

本件でも、質問の書き方は色々あると思う。操作を説明するのも、よい場合と適当でないケースがある。
本件もあいまいな点を残す。推測でやってみる。
望むのは、まずデータ例を挙げ、最終結果のデータ例と、最終目的を、「文章」で挙げるのがよいと思う。
ーー
質問に書いてあることをVBAで延長すると、下記もあり得る。
操作を元に考えるなら、マクロの記録が役立つ。やってみたか？
ーー
データ例
B1:C7
a 1
b 2
c 3
d 4
e 5
f 6
g 7
標準モジュールに
Sub Macro1()
Range("A1") = Range("b1") & Range("c1")
rl = Range("B10000").End(xlUp).Row
MsgBox rl
Range("A1").AutoFill Destination:=Range("A1:A" & rl)
'Range("A1:A3").Select
End Sub
実行結果　A1:C7
a1 a 1
a2 b 2
a3 c 3
a4 d 4
a5 e 5
a6 f 6
a7 g 7

お礼

ありがとうございました。