VBA 選択範囲の行を一意に取得

Sub get_selected_rows()

Set dic = CreateObject("scripting.dictionary")

For Each r In Selection
  If Not dic.exists(r.Row) Then dic.Add r.Row, ""
Next

ReDim selected_rows(dic.Count - 1)

k = dic.keys
For i = 0 To dic.Count - 1
  selected_rows(i) = k(i)
Next i

For Each r In selected_rows
  MsgBox r
Next

End Sub

Sub get_selected_rows()

Set dic = CreateObject("scripting.dictionary")

For Each r In Selection

If Not dic.exists(r.Row) Then dic.Add r.Row, ""

ReDim selected_rows(dic.Count - 1)

k = dic.keys

For i = 0 To dic.Count - 1

selected_rows(i) = k(i)

Next i

For Each r In selected_rows

MsgBox r

End Sub