|
▼Kein さん:
Kein さん、こんにちは。
遅くなりましたが、自分なりに色々と確認をしておりました。
それで、ご提示頂いた以下のコードですが、途中で行削除されると、うまく動作しなくなるので、以下のように修正してみましたが、集計行のスキップは、こんなものでどうでしょうか?
>Dim LstR As Long
>
>LstR = Range("B2000").End(xlUp).Row
>If LstR > 3 Then
> Range("A3:S" & LstR).Sort _
> Key1:=Range("O3"), Order1:=xlAscending, _
> Key2:=Range("Q3"), Order2:=xlAscending, _
> Key3:=Range("B3"), Order3:=xlAscending, _
> Header:=xlYes, MatchCase:=False, Orientation:=xlTopToBottom
>End If
>Range("B4").Select
>
>で、どうでしょーか ?
Dim LstR As Long
LstR = Range("B65536").End(xlUp).Offset(-1, 0).Row
LstR = Range("B" & LstR).End(xlUp).Row
If LstR > 3 Then
Range("A3:S" & LstR).Sort _
Key1:=Range("O3"), Order1:=xlAscending, _
Key2:=Range("Q3"), Order2:=xlAscending, _
Key3:=Range("B3"), Order3:=xlAscending, _
Header:=xlYes, MatchCase:=False, Orientation:=xlTopToBottom
End If
Range("B4").Select
Exit Sub
|
|