- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
        
|
¦^´_ 1# xu123 - Option Explicit
- Sub Ex¶i¶¥¿z¿ï_¸ê®Æ½Æ»s¦b¨ä¥L¦a¤è()
- With Sheets("A12520120706")
- If .FilterMode Then .ShowAllData '¸ê®Æ³B©ó¿z¿ï¼Ò¦¡ «hÅã¥Ü¥þ³¡¸ê®Æ
- .Cells(1, .Columns.Count) = "XXX" '¶i¶¥¿z¿ï: pºâ¦¡ ·Ç«hÄæ¦ì ¤£¥i»P¸ê®Æ®wÄæ¦ì¦WºÙ¤@¼Ë
- .Cells(2, .Columns.Count) = "=SECOND(®É¶¡)=0"
- .Range("L2").CurrentRegion = ""
- .Range("A2:" & .Range("A2").End(xlToRight).End(xlDown).Address).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Cells(1, .Columns.Count).Resize(2), CopyToRange:=.Range("L2"), Unique:=False
- 'Action:=xlFilterCopy '¸ê®Æ½Æ»s¦b¨ä¥L¦a¤è
- End With
- End Sub
- Sub Ex¶i¶¥¿z¿ï_¦bì½d³òÅã¥Ü()
- With Sheets("A12520120706")
- If .FilterMode Then .ShowAllData
- .Cells(1, .Columns.Count) = "XXX"
- .Cells(2, .Columns.Count) = "=SECOND(®É¶¡)=0"
- .Range("A2:" & .Range("A2").End(xlToRight).End(xlDown).Address).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=.Cells(1, .Columns.Count).Resize(2), Unique:=False
- 'Action:=xlFilterInPlace ¦bì½d³òÅã¥Ü
- End With
- End Sub
½Æ»s¥N½X |
|