- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 97
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-4-26
|
¥»©«³Ì«á¥Ñ Hsieh ©ó 2012-7-28 19:41 ½s¿è
¦^´_ 6# c_c_lai
³o¥u¬O§i¶D§A¡A¥un¦b½s¸¹Äæ¦ì¨Ï¥Î¤½¦¡=SUBTOTAL(3,$B$2:B2)
¨Ó§¹¦¨½s¸¹«á
°õ¦æ¿z¿ï°Ê§@«á(¤£ºÞ¬O¤â°Ê©ÎVBA¾Þ§@)
½s¸¹³£¯à¦Û°Ê«±ÆÅã¥Ü
¦pªGn§â½s¸¹ªº¤½¦¡¤@¨Ö¼g¤JVBA- Sub ex()
- With ActiveSheet
- If .[A1] <> "" Then '§PÂ_¬O§_¤w¦s¦b½s¸¹Äæ¦ì
- .Columns("A").Insert '´¡¤JAÄæ
- End If
- If .FilterMode Then .ShowAllData '§PÂ_¬O§_¿z¿ïª¬ºA
- .[A2] = "½s¸¹" '¼g¤JÄæ¦W
- .[A3].FormulaR1C1 = "=SUBTOTAL(3,R2C[1]:R[-1]C[1])" '½s¸¹¤½¦¡
- .[A3].AutoFill .Range(.[A3], .[B65536].End(xlUp).Offset(, -1)) '¦V¤U¶ñº¡
- .[K2] = "=SECOND(B3)=0" '¿z¿ï·Ç«h¤½¦¡
- .Range("A1").CurrentRegion.Offset(1).AdvancedFilter xlFilterInPlace, .[K1:K2] 'ì¦a¶i¶¥¿z¿ï
- End With
- End Sub
½Æ»s¥N½X |
|