ExcelVBAで相対参照をしたい

質問

ExcelVBAで、任意の範囲を選択して各行ごとにある処理を行いたいと考えています。
Sheet_Name = ActiveSheet.Name
range_address = Selection.Address
range_address = Replace(range_address, "$", "")
range_address = Left(range_address, InStr(range_address, ":") - 1)
work_columns = Selection.Columns.Count '列数
Work_Rows = Selection.Rows.Count '行数
Range(range_address).Select
Range(activecell_address, ActiveCell.Offset(0, work_columns)).Select
行の選択が出来れば、あとは、ソートするだけです。
と、選択範囲の左上のアドレスと、選択範囲の行数、列数の取得は出来たのですが、１行ごとの選択がうまく出来ません。(相対参照の仕方がわかっていないだけだと思いますが)
やりたいことは、選択範囲を上から順に行ごとにソートしたいのですが、どなたか？詳しい方がいらっしゃいましたら教えて頂けないでしょうか？

回答No.1

Wendy02 · ベストアンサー

こんばんは。

がんばっていらっしゃいますね。

単に、こういうことではないでしょうか？

Dim r As Range
For Each r In Selection.Rows
　　r.Select
Next r

>選択範囲を上から順に行ごとにソートしたいのですが
列に対して、ソートしていくことでしょうか？
そうすると、xlAscending　か、xlDescending かは分かりませんが、こうなるのだと思います。

Dim r As Range
For Each r In Selection.Rows
　 r.Sort Key1:=r.Cells(1), _
　　　　　　 Order1:=xlAscending, _
　　　　　　 Header:=xlGuess, _
　　　　　　 OrderCustom:=1, _
　　　　　　 MatchCase:=False, _
　　　　　　 Orientation:=xlLeftToRight, _
　　　　　　 SortMethod:=xlPinYin
Next r

お礼

Selection.Rowsで、コレクションになるなんて・・・？
って、言われてみれば、オブジェクトに対するRowsなので、当然かぁ？って感じですが、自力で理解するには、あと何年もかかった事でしょう？本当に、本当に有難う御座います。
目から鱗とは、このことのような気がします。
大変、大変助かりました。
今後とも宜しくお願い親します。
有難う御座いました。