エクセルVBAでダブルクリックをしたらA列のデータが別シートに転記されるにはどうしたらよいですか？

VBA初心者です。
シート１にあるデータ一覧のセルをダブルクリックしてそのデータをシート２に転記させたいです。
ダブルクリックしたらその一列がまるごと転記されるにはどのように書いたらいいですか？
また、一行だけでなく各行のデータをダブルクリックしたらその都度転記されるようにしたいです。

お手数ですがご回答のほどよろしくお願いします。

質問者からの補足コメント

• A列ではなく１列でした。
  転記したい列をダブルクリックして、横一列分別シートに転記させたいです。

    補足日時：2016/08/19 15:34

No.3 ベストアンサー 回答者： tom04 回答日時： 2016/08/19 21:01

こんばんは！

どののセルをダブルクリックしてもその行をSheet2の最終行の下にコピー＆ペーストするようにしてみました。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target
Cells(.Row, .Column).EntireRow.Copy Worksheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Offset(1)
End With
End Sub

こんな感じではどうでしょうか？m(_ _)m

No.2 回答者： t_fumiaki 回答日時： 2016/08/19 16:32

横の１行目なら以下

(他の直しは下のVBAを解析して下さい。難しくは無い。)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Sh1 As Worksheet
Dim Sh2 As Worksheet

Set Sh1 = Worksheets("sheet1")
Set Sh2 = Worksheets("sheet2")

With Target
If .Row = 1 Then

Sh1.Rows("1").Copy
Sh2.Rows("1").PasteSpecial

End If
End With

End Sub

No.1 回答者： t_fumiaki 回答日時： 2016/08/19 14:44

下のPrivate Subを入れ込んで下さい。

シート１、シート２は実際のシート名へ修正して下さい。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Sh1 As Worksheet
Dim Sh2 As Worksheet

Set Sh1 = Worksheets("シート１")
Set Sh2 = Worksheets("シート２")

With Target
If .Column = 1 Then

Sh1.Columns("A").Copy
Sh2.Columns("A").PasteSpecial

End If
End With

End Sub

この回答へのお礼

ご回答ありがとうございます。
私の記載ミスで縦のA列ではなく、横の１列でした。
申しわけございません。

お礼日時：2016/08/19 15:36