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
行の選択が出来れば、あとは、ソートするだけです。
と、選択範囲の左上のアドレスと、選択範囲の行数、列数の取得は出来たのですが、1行ごとの選択がうまく出来ません。(相対参照の仕方がわかっていないだけだと思いますが)
やりたいことは、選択範囲を上から順に行ごとにソートしたいのですが、どなたか?詳しい方がいらっしゃいましたら教えて頂けないでしょうか?