用戶在對(duì)如圖1所示的數(shù)據(jù)列表進(jìn)行自動(dòng)篩選后，往往希望將自動(dòng)篩選的結(jié)果復(fù)制到其它地方。B；C':D::：E.FG1姓名E部門p土職務(wù)一社保號(hào)牛醫(yī)保號(hào)%＜公積金號(hào)媽$5馬密.辦公室辦事員「074472..「00460Y110035349508王戲球事員0132780F00E814Sr1S19600王戲辦■公室協(xié)理員f119340'.寶53147r100937015ToXI1KK?如公室.:外惜:720209004r35181002782963吳船外杳室門衛(wèi)'□10391800E8155r101126^S7張戲辦■公室.門衛(wèi)’「0012180F005815ar100390359邱蹈辦公室協(xié)理員r0130053rOO5014Sr100974760邱也I辦公室，駕駛員0012139rOOE8150「 0S99827；B2陸我.辦■公窒駕駛員0108403r0073627100355366770唐踮亦公室門衛(wèi)0020171rDO50153r1009064唐雙辦公窒副主任rOllSrpS00ES152「 1009142_76_?辦公窒.:門衛(wèi)..r003S504r005015710099S183；錢皿殊公室?協(xié)理員r12131r531511C06220~9G圖1篩選結(jié)果這時(shí)可以通過(guò)獲取該列表區(qū)域中可見(jiàn)單元格的方法得到篩選結(jié)果的單元格區(qū)域，并復(fù)制到工作表Sheet2中，如下面的代碼所示SubCopyFilter。??Sheet2.Cells.Clear??WithSheet1??????If.FilterModeThen????????.AutoFilter.Range.SpecialCells(12).CopySheet2.Cells(1,1)??????EndIf??EndWithEndSub

代碼解析:CopyFilter過(guò)程將Sheetl表中的篩選結(jié)果復(fù)制到工作表Sheet2中。第2行代碼清除Sheet2表中數(shù)據(jù)。第4行代碼判斷Sheet1表是否處于自動(dòng)篩選狀態(tài)。FilterMode屬性返回工作表是否處于篩選模式，如果指定工作表中包含已篩選序列且該序列中含有隱藏行，則該值為True。第5行代碼通過(guò)AutoFilter對(duì)象的Range屬性返回工作表的自動(dòng)篩選列表區(qū)域，再使用SpecialCells方法獲取該列表區(qū)域中可見(jiàn)單元格（SpecialCells方法請(qǐng)參閱技巧4），得到篩選結(jié)果的單元格區(qū)域，然后使用Copy方法將結(jié)果區(qū)域復(fù)制到工作表Sheet2中，應(yīng)用于Range對(duì)象的Copy方法將單元格區(qū)域復(fù)制到指定的區(qū)域或剪貼板中，語(yǔ)法如下：expression.Copy(Destination)參數(shù)expression是必需的，該表達(dá)式返回一個(gè)Range對(duì)象。參數(shù)Destination是可選的，指定區(qū)域要復(fù)制到的目標(biāo)區(qū)域。如果省略該參數(shù)，則將該區(qū)域復(fù)制到剪貼板中。運(yùn)行CopyFilter過(guò)程工作表Sheet2如圖2所示。ABCDEFG1姓名.部門職務(wù)社保號(hào)葡辰保號(hào)內(nèi)公積金號(hào)內(nèi)馬疆J辦公窒亦事員074472「004607110035349503王歡:辦公窒"辦事員0132703r0050140r1S1S6004王我辦公室協(xié)理員「119340「5S147r1000376E劉XK冰公窒外借>20205004*3618'10027S29638:吳皿辦公室門衛(wèi)"0103918「00531551011263：7瓶且力室?:室門衛(wèi)0012180r00581581003003.屈邱XK辦處宣協(xié)理員01C005300501461009747g邱疆｛'辦公耋駕駛員001213900581500990827Id陸歡辦公室駕駛員r01684030073627*1003555667ii唐戲'辦公室：:門衛(wèi)「0020171005S1531OO0S6412唐州，辦公窒副主任0119338005B