【エクセルマクロ】ダブルクリックした行の値を配列に格納する

エクセルマクロで、ダブルクリックした行の値を配列に格納するVBAコードをご紹介します。

A列をダブルクリックしたときのみ、マクロが発動するように設定します。

このページのマクロコードは、コピペで使えます。
せひ、お試しください。

ダブルクリックした行の値を配列に格納する

以下のマクロを実行すると、ダブルクリックした行の値を配列に格納します。


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
Dim i As Long
Dim Last_Clm As Long
Dim Tmp() As Variant

    '最終列を取得
    Last_Clm = Range("A1").End(xlToRight).Column - 1
    
    '配列の要素数を指定
    ReDim Preserve Tmp(Last_Clm)
    
    With Target
    
        'A列をダブルクリックしたら
        If .Column = 1 Then
            For i = 0 To Last_Clm
                Tmp(i) = Cells(ActiveCell.Row, 1).Offset(0, i).Value
            Next i
        End If
    
    End With

End Sub