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

[µo°Ý] ½Ð±Ð§ï¨}³t«×¤èªk

¦^´_ 10# 198188
°Ñ¦Ò¬Ý¬Ý , §Q¥Î¶i¶¥¿z¿ï°µªº

test.zip (19.54 KB)
  1. Sub myFilter()
  2.     Dim rngSrc As Range, rngCopyField As Range, rngFilter As Range
  3.     Dim nextRow As Long, endRow As Long
  4.    
  5.     Set rngSrc = Sheets("¸ê®Æ®w").[A1:G7]
  6.     Set rngCopyField = Sheets("±ø¥ó°Ï").[B8:H8]
  7.     Set rngFilter = Sheets("±ø¥ó°Ï").[B1].Resize(Sheets("±ø¥ó°Ï").[B1].CurrentRegion.Rows.Count, 8)
  8.    
  9.     nextRow = Sheets("¾ã²z°Ï").UsedRange.Rows.Count + 1
  10.                
  11.     rngSrc.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
  12.     rngFilter, CopyToRange:=Sheets("¾ã²z°Ï").Range("A" & nextRow)
  13.         
  14.     endRow = Sheets("¾ã²z°Ï").UsedRange.Rows.Count
  15.    
  16.     For i = 1 To rngCopyField.Count
  17.         If rngCopyField(i) = "N" Then
  18.             Sheets("¾ã²z°Ï").Range(nextRow & ":" & endRow).Columns(i).Clear
  19.         End If
  20.     Next
  21.    
  22.     Sheets("¾ã²z°Ï").Range("A" & nextRow).Resize(1, 7).Delete Shift:=xlUp   'delete header
  23.    
  24.     Set rngSrc = Nothing
  25.     Set rngCopyField = Nothing
  26.     Set rngFilter = Nothing
  27. End Sub
½Æ»s¥N½X

TOP

¦^´_ 11# stillfish00

½Ð°Ý¦pªG´M§ä±ø¥ó¬OªÅ®æ¡AÀ³¸Ó¦p¦óªí¥Ü¡H

TOP

¦^´_ 12# 198188
±ø¥ó³]©w³£¸ò¶i¶¥¿z¿ï·Ç«h¤@¼Ë
§A¥i¥H°Ñ¦Ò  http://office.microsoft.com/zh-tw/excel-help/HP010073942.aspx
¦p¿é¤J
=" "        ¿z¿ï¸ÓÄæ¦ì¬°³æ­ÓªÅ¥Õ¦r¤¸
="* *"    ¿z¿ï¸ÓÄæ¦ì¥]§tªÅ¥Õ¦r¤¸
=" *"      ¿z¿ï¸ÓÄæ¦ì¥HªÅ¥Õ¦r¤¸¶}ÀY

TOP

¥»©«³Ì«á¥Ñ 198188 ©ó 2012-12-3 11:58 ½s¿è

¦^´_ 13# stillfish00


    ©m¦W         ©Ê§O         ¹q¸Ü         °êÂÇ         ¨®µP         ¦~ÄÖ         Â¾·~
John         ¨k        11111111        China        ¦³                Clerk
Peter        ¨k        22222222        Germany        ¦³        30        A/C
David        ¨k        33333333        USA        µL        15        ADMIN
Tina        ¤k        44444444        China        ¦³        25        Clerk
June        ¤k        55555555        ITALY        µL        35        Clerk


¶i¶¥¿z¿ï·Ç«h:        ©m¦W         ©Ê§O         ¹q¸Ü         °êÂÇ         ¨®µP         ¦~ÄÖ         Â¾·~
                                       *n*                                                                       =" "
½Æ»sÄæ¦ì:                             Y        Y        Y        N        Y        N        Y

¨S¦³¤ÏÀ³¡A¨S¦³¸ê®Æ¥X¨Ó

TOP

¦^´_ 14# 198188
§äªÅ¥ÕÀx¦s®æ , ¿é¤J
=   ©Î   ="="

TOP

¦^´_ 15# stillfish00


    ¥t¤@­Ó°ÝÃD¡A½Ð°Ý¦pªG­n´M§äµ´¹ï­È©O¡AÀ³¸Ó¦p¦ó¼g¡H
¨Ò¦p¡G
KEN
KENNY
KEN CHEN
CHAN KEN

¦pªG¥u­nÅã¥Ükenªº¸ê®Æ¡A¨º»òÀ³¸Ó«ç¼Ë¼g¡H

TOP

¦^´_ 15# stillfish00


    test1.rar (878.31 KB)
¦n¹³¦³¨Ç°ÝÃD¡AµLªk°µ¨ì

TOP

¦^´_ 17# 198188

="=KEN"

test1.zip (723.23 KB)
1.  §AÄæ¼Æ¦@¦³38Äæ resize¤]­n¸òµÛ§ï
2.  Result¤u§@ªí­n²MªÅ­Èªº®É­Ô , ­n¥Î¾ã¦C§R°£ ,
     §_«h§PÂ_Sheets("Result").UsedRange.Rows.Count¦C¼Æ®É
     ÁÙ·|¬O²MªÅ«eªº¦C¼Æ , ³oÂI§Ú¤]¤£ª¾¹D¦ó¸Ñ...

TOP

¥»©«³Ì«á¥Ñ 198188 ©ó 2012-12-3 15:29 ½s¿è

¦^´_ 18# stillfish00

½Ð°Ý¬°¤°»ò«ö¤@¦¸«á¡A¥¦¦Û°Ê±N³Ì«á¨ºrow·í¦¨¤U¦¸ªº²Ä¤@­Ó¡H
¦]¬°§Ú«ö¤@¦¸«á¡A§â¸ê®Æ§R°£«á´N¦b¤W¤@¦¸°õ¦æªº³Ì«á¤@¦C+1¶}©l¡A¥i¥HÅý¥¦¤£·|¦Û°Ê°O¾Ð¡A¨C«ö¤@¦¸´N¥ý§R°£¥H«eªº¸ê®Æ¡AµM«á³£±qA2¶}©l¡C
¥t¥~§Úªþ¥ó¤º¥t¤@­Óµ{¦¡°õ¦æ®É«ÜºC¡A¦³¥[§Öªº¤èªk¶Ü

TOP

¦^´_ 10# 198188


    ¥ªÃ䨺±iÁY¹Ï¦³»¡©ú...

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD