stillfish00

¦^´_ 2# freeffly

1. Sub «~½è()
   
2.     n = Range("AG65536").End(xlUp).Offset(1).Row
   
3.     x = Range("A65536").End(xlUp).Row
   
4.     w = Array("B", "C", "D", "E")
   
5.    
   
6.     Selection.AutoFilter Field:=33, Criteria1:="="
   
7.     For i = LBound(w) To UBound(w)
   
8.     Selection.AutoFilter Field:=14, Criteria1:="=*" & w(i) & "*"
   
9.     Range(Cells(n, "AG"), Cells(x, "AG")).SpecialCells(xlCellTypeVisible) = w(i)
   
10.     Next
    
11.     Selection.AutoFilter Field:=14
    
12.     Range(Cells(n, "AG"), Cells(x, "AG")).SpecialCells(xlCellTypeVisible) = "A"
    
13.     Selection.AutoFilter Field:=33
    
14. End Sub

½Æ»s¥N½X

stillfish00

¦^´_ 5# freeffly
¥u¬O§â§A#1
«~½è_­ì¥ýªº()
²Ä7¦æ§ï¥¿¦Ó¤w