|
▼ackkn さん:
Kein さん、こんばんは。
>お陰様でやっと先が見えてきました。
>後は、ソートだけですので、自分なりにコードを書いてみます。
>また低次元なコードをお見せすると思いますが、よろしくお願いします。
一応、下記がソートのコードです、Adr など必要ないような気がしますが、合体出来ませんでした。
すいませんが、ご教示下さい。(尚、合計欄を2001行に設けています)
Dim Adr As String
Adr = ActiveSheet.Range("B2000").End(xlUp).Offset(0, 17).Address
If Adr <> "$S$3" Then
Range("A3", Adr).Sort _
Key1:=Range("O4"), Order1:=xlAscending, _
Key2:=Range("Q4"), Order2:=xlAscending, _
Key3:=Range("B4"), Order3:=xlAscending, _
Header:=xlYes, MatchCase:=False, Orientation:=xlTopToBottom
Range("B4").Select
Else
Range("B4").Select
End If
|
|