【Excel-VBA】離れた選択セルを順に処理Ctrl+クリックで選択したセル位置を取得

Sub try()
Dim r As Range
Dim rr As Range

Set rr = Range(“A1”)

For Each r In Selection
rr.Value = r.Value
Set rr = rr.Offset(1)
Next

Set rr = Nothing
End Sub

少し変更

For Each r In Selection ‘選択範囲を順に実行
k = r.Row

‘ Cells(i, 2).Value = r.Value
Cells(i, 2).Value = Cells(k, 2).Value
i = i + 1
Next