Óû§Ãû£ºÄäÃûÓû§
SubÁÐ**תÎļþ()
DimTworkAsWorkbook,TshtAsWorksheet,nameDic,EndRowAsLong
Application.ScreenUpdating=False
SetnameDic=CreateObject("Scripting.Dictionary")
EndRow=[A65536].End(xlUp).Row'»ñÈ¡AÁÐÄ©ÐÐ,¸ù¾Ýʵ¼ÊÐÞ¸ÄΪijÁÐ
ForEachrngInRange("AÒì»ÊÕñÓÑ2:A"&EndRow)
'±éÀúAÁеڶþÐпªÊ¼µÄËùÓйؼü×Ö,Èç·ÇAÁÐ,Ç뽫AÐÞ¸Ä³ÉÆäËüÁÐ
nameDic(rn½«²Ég.Value)=""'½«¹Ø¼ü×ÖÌí¼ÓÖÁ×Öµä¶ÔÏóÖУ¨²»»áÖØ¸´£©
NÂò¹¤´ýº¬Ï¸Éóext
IfActiveSheet.AutoFilterMode=FalseThenRange("A1:C1").AutoFilter
'½«¹¤×÷±íA1:C1ÇøÓòÉèÖÃΪ×Ô¶¯É¸Ñ¡,°´×Ô¼ºÐèÒªÐÞ¸ÄÇøÓò
ForE¹ýϸÕýachtInnameDi»ò×ںøÖc.keys'±éµ**éÇÖÊøÀú×ÖµäÖÐËùÓеĹؼü×Ö
Ift""Then
ActiveSheet.Range("$A$1:$C$"&EndRow).AutoFilterField:=1,Criteria1:=t
'¼ÌÂúÖØ³ÁÁôţôÌå×ö˵´Ó×Ô¶¯É¸Ñ¡ÖÐɸѡֵΪ±äÁ¿tµÄËùÓÐÇøÓò
SetTwork=Workbooks.Add:SetTsht=Twork.Sheets(1)
'н¨¹¤×÷²¾twork¶ÔÏó,ÉèÖÃTsht¹¤×÷±í¶ÔÏó
Range("A1").CurrentRegion.CopyTsht.Range("A1")
'½«×Ô¶¯É¸Ñ¡³öµÄËùÓÐ½á¹æÖÝÑõËê¹û¸´ÖƵ½ÐµĹ¤×÷±¡ÖÐ
Twork.S**eAst:Twork.Close:SetTsht=Nothing:SetTwork=Nothing
Áí´æÐµĹ¤×÷²¾,Ãû×ÖΪ±ä´Å»ùÀ§°´Óà¿ÉÁ¿t(¼ÈAÁÐÖеĹØÉè¼ü×Ö),È»ºó¹Ø±Õ¹¤×÷²¾½ç¿×È»Éó´ï¼Í,Çå¿Õ¶ÔÏó±äÁ¿
EndIf
Next
Application.ScreeÑõ»ò¹Ø¼ÒÈ»ÎÒʤnUpdating=True
EndSub