ExcelVBA实例教程 复制自动筛选后的数据区域

用户在对如图1所示的数据列表进行自动筛选后，往往希望将自动筛选的结果复制到其它地方。B；C':D::：E.FG1姓名E部门p土职务一社保号牛医保号%＜公积金号妈$5马密.办公室办事员「074472..「00460Y110035349508王戏球事员0132780F00E814Sr1S19600王戏办■公室协理员f119340'.宝53147r100937015ToXI1KK•如公室.:外惜:720209004r35181002782963吴船外杳室门卫'□10391800E8155r101126^S7张戏办■公室.门卫’「0012180F005815ar100390359邱蹈办公室协理员r0130053rOO5014Sr100974760邱也I办公室，驾驶员0012139rOOE8150「 0S99827；B2陆我.办■公窒驾驶员0108403r0073627100355366770唐踮亦公室门卫0020171rDO50153r1009064唐双办公窒副主任rOllSrpS00ES152「 1009142_76_•办公窒.:门卫..r003S504r005015710099S183；钱皿殊公室•协理员r12131r531511C06220~9G图1筛选结果这时可以通过获取该列表区域中可见单元格的方法得到筛选结果的单元格区域，并复制到工作表Sheet2中，如下面的代码所示SubCopyFilter。??Sheet2.Cells.Clear??WithSheet1??????If.FilterModeThen????????.AutoFilter.Range.SpecialCells(12).CopySheet2.Cells(1,1)??????EndIf??EndWithEndSub

代码解析:CopyFilter过程将Sheetl表中的筛选结果复制到工作表Sheet2中。第2行代码清除Sheet2表中数据。第4行代码判断Sheet1表是否处于自动筛选状态。FilterMode属性返回工作表是否处于筛选模式，如果指定工作表中包含已筛选序列且该序列中含有隐藏行，则该值为True。第5行代码通过AutoFilter对象的Range属性返回工作表的自动筛选列表区域，再使用SpecialCells方法获取该列表区域中可见单元格（SpecialCells方法请参阅技巧4），得到筛选结果的单元格区域，然后使用Copy方法将结果区域复制到工作表Sheet2中，应用于Range对象的Copy方法将单元格区域复制到指定的区域或剪贴板中，语法如下：expression.Copy(Destination)参数expression是必需的，该表达式返回一个Range对象。参数Destination是可选的，指定区域要复制到的目标区域。如果省略该参数，则将该区域复制到剪贴板中。运行CopyFilter过程工作表Sheet2如图2所示。ABCDEFG1姓名.部门职务社保号葡辰保号内公积金号内马疆J办公窒亦事员074472「004607110035349503王欢:办公窒"办事员0132703r0050140r1S1S6004王我办公室协理员「119340「5S147r1000376E刘XK冰公窒外借>20205004*3618'10027S29638:吴皿办公室门卫"0103918「00531551011263：7瓶且力室•:室门卫0012180r00581581003003.屈邱XK办处宣协理员01C005300501461009747g邱疆｛'办公耋驾驶员001213900581500990827Id陆欢办公室驾驶员r01684030073627*1003555667ii唐戏'办公室：:门卫「0020171005S1531OO0S6412唐州，办公窒副主任0119338005B