ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý¤@¤U¦p¦óÀò¨ú¼Ï¶sÄæ¦ì¸Ì¶µ¥Ø??


¬O¤£¬O·Q­n³o³¡¥÷?

TOP

¦^´_ 11# ikboy


    ¬Oªº~½Ð°Ý¦³¿ìªk¥ÎVBAª½±µ±q¼Ï¶s¤ÀªRªí¸Ì¨ú±o¸Ó¶µ¥Ø©Ò¦³ªº¦WºÙ¶Ü??ÁÂÁÂ

TOP

¦^´_ 10# kim223824


    ¤j¤j~§Ú­nªº¤£¬O¼ÐÃD¡A¦Ó¬O¹Ï¸Ìb2,b3,b4¸Ìªº©Ò¦³¶µ¥Ø¦WºÙ¡CÁÂÁÂ

TOP

¦^´_ 5# yiwei0707

­n¥h¤F¸Ñµ{¦¡¤º®e¡A¥[¥H¹B¥Î
  1. Sub ex()
  2. Dim PT As PivotTable, A As Range
  3. Set d = CreateObject("Scripting.Dictionary")
  4. Set PT = ActiveSheet.PivotTables(1)
  5. With PT
  6. For i = 1 To .RowFields.Count
  7. n = .RowFields(i).Name
  8. .PivotSelect n, 1
  9. Set A = Selection
  10. For Each c In A.SpecialCells(xlCellTypeConstants)
  11.    d(c.Value) = ""
  12. Next
  13. MsgBox Join(d.keys, ";")
  14. d.RemoveAll
  15. Next
  16. End With
  17. End Sub
½Æ»s¥N½X
play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 14# Hsieh


    «D±`ÁÂÁ¤j¤jªº¦^´_~

TOP

¦¹ÃD¡A¥Ñ©ó¨C¦¸¸ê®Æ¡A¥u¨Ï¥Î¤@¦¸¡A«Øij¤â¤u·J¾ã¸ê®Æ
1.¥ý§@¥X14¼Óªº¼Ï¯Ã¤ÀªRªí
2.copy¼Ï¯Ã¤ÀªRªí¤¤ªº¡A¤j¤ÀÃþ¡A¤¤¤ÀÃþ¡A¤p¤ÀÃþ¡A¨ì·ssheet¿ï¾Ü©Ê¶K¤W­È
3.¤j¤ÀÃþ¡A¤¤¤ÀÃþ¦³ªÅ®æ¡A¥þ¿ï¤j¤¤¤p¤ÀÃþ©Ò¦³Àx¦s®æ¡A«ö§ÖÁäCtrl+G ¨ìªÅ®æ¡A¦bµJÂIÀx¦s®æ¡A¿é¤J=¦¹Àx¦s®æ¤W¤@®æ¦pµJÂIÀx¦s®æ¬°A11¡A¤½¦¡§Y¬°=A10
4.«ö§ÖÁäCtrl+enter¡A¶ñº¡ªÅ®æ§Y§¹¦¨

TOP

¦^´_ 16# HUNGCHILIN


    ÁÂÁ¤j¤jªº±Ð¾É¡A¤w§¹¦¨§Ú©Ò»ÝªºªF¦è¤F¡CÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD