Gộp 2 vùng vào 1 đoạn code

[Phamvannhan1531]

Em có đoạn code sau ạ.
Sub nexta_Click()
Range("o6").Value = Range("o6").Value
Range("s35:s43").Select
Selection.AutoFilter
Range("s163:s173").Select
Selection.AutoFilter
ActiveSheet.Range("s35:s45").AutoFilter Field:=1, Criteria1:="1"
ActiveSheet.Range("s163:s173").AutoFilter Field:=1, Criteria1:="1"
End Sub
đoạn code trên em chạy bị lỗi và em muốn ghép vào dạng như sau ạ
Sub nexta_Click()
Range("o6").Value = Range("o6").Value
Range("s35:s43,s163:s173").Select
Selection.AutoFilter
ActiveSheet.Range("s35:s45,s163:s173").AutoFilter Field:=1, Criteria1:="1"
End Sub
Em xin nhờ các anh chị trên diễn đàn sửa giúp em với ạ

 

[Ba mười ba]

Làm sao mà filter 2 vùng trong một sheet được bạn,bạn làm bằng tay có được không mà muốn code làm được?

 

[Phamvannhan1531]

Làm sao mà filter 2 vùng trong một sheet được bạn,bạn làm bằng tay có được không mà muốn code làm được?

Dạ em cảm ơn bác đã giải đáp ạ