­ã´£³¡ªL

°Ý¤@¡G

1. Sub TEST()
   
2. Dim Sht As Worksheet, FT$, N%
   
3. If Left([B1], 1) <> "¡ö" Then MsgBox "½Ð¥ý°õ¦æ²M°£! ": Exit Sub
   
4. If [A1] = "" Then MsgBox "½Ð¦bA1¿é¤J¾P°â¤H! ": Exit Sub
   
5. FT = [A1]
   
6. For Each Sht In Sheets(Array("A°Ó«~", "B°Ó«~", "C°Ó«~"))
   
7.     Sht.AutoFilterMode = False
   
8.     With Sht.UsedRange
   
9.         .AutoFilter Field:=2, Criteria1:=FT
   
10.         .AutoFilter Field:=13, Criteria1:="<>0"
    
11.         .Offset(N, 0).Copy Cells(Rows.Count, 1).End(xlUp)(1 + N)
    
12.     End With
    
13.     N = 1
    
14.     Sht.AutoFilterMode = False
    
15. Next
    
16. End Sub

½Æ»s¥N½X

°Ý¤G¡G
¢Ï¢²¤½¦¡¡G=DATE(2016,SUBSTITUTE($A$2,"¤ë¥÷",)-(A$1<>""),25+(A$1<>""))¡@¥k©Ô

Xl0000537.rar (13.52 KB)

¤U¸ü¦¸¼Æ: 2

2016-5-2 13:01

¥t¤@¸ü§}¡G
http://www.funp.net/606720

­ã´£³¡ªL

¦^´_ 3# http1228

µ{¦¡½Xµy½ÆÂø, ¦ý³£¬O°ò¥»»yªk, ¤£¦h°µ»¡©ú:
Xl0000010.rar (40.14 KB)

¤U¸ü¦¸¼Æ: 8

2016-5-2 18:00

http://www.funp.net/703552