マクロにて並び替えを行う際の範囲について 下記のマクロはマクロの記録で4行目まであるデータで作成したのですが。 行数が毎回変動します。 毎回変動する行数に使用するにはどのように変更すればよいでしょうか? また、無駄な部分などありましたら一緒に教えて下さい。 をSub Macro1() Range("A1:AA4").Select ActiveWorkbook.Worksheets("データ貼付場所").Sort.SortFields.Clear ActiveWorkbook.Worksheets("データ貼付場所").Sort.SortFields.Add2 Key:=Range("H2:H4") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("データ貼付場所").Sort.SortFields.Add2 Key:=Range("C2:C4") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("データ貼付場所").Sort.SortFields.Add2 Key:=Range("J2:J4") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("データ貼付場所").Sort .SetRange Range("A1:AA4") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub 以上よろしくお願いします。
Visual Basic