|
▼かおりん さん:
ponponです。こんばんは。
>3 Selection.AutoFilter
>4 Range("a6:aa100").Select
>5 Selection.AutoFilter
↑
これは、何ですか?
下記コードで普通にできてますが・・・・
範囲を指定すると、空白列があっても大丈夫です。
Sub 並び替え()
Dim myRng As Range
Set myRng = Range("A4:AA100")
With myRng
If Range("e2").Value = 0 Then
.AutoFilter Field:=5
Else
.AutoFilter Field:=5, Criteria1:=Range("e2").Value
End If
If Range("g2").Value = 0 Then
.AutoFilter Field:=7
Else
.AutoFilter Field:=7, Criteria1:=Range("g2").Value
End If
If Range("i2").Value = 0 Then
.AutoFilter Field:=17
Else
.AutoFilter Field:=17, Criteria1:=Range("i2").Value
End If
If Range("m2").Value = 0 Then
.AutoFilter Field:=13
Else
.AutoFilter Field:=13, Criteria1:=Range("m2").Value
End If
End With
Range("f7").Select
End Sub
'=================================================================
Sub 並び替えを戻す()
Range("a6:aa100").AutoFilter
End Sub
|
|