ÓÃexcelºê¶Ôsheet°´Ö¸¶¨ÁÐÄÚÈÝÃüÃû²ð·Ö³ÉÈô¸ÉÎļþ

ʱ¼ä£º2018.07.17 ·¢²¼ÈË£ºa**n5235

ÓÃexcelºê¶Ôsheet°´Ö¸¶¨ÁÐÄÚÈÝÃüÃû²ð·Ö³ÉÈô¸ÉÎļþ

Òѽâ¾öÎÊÌâ

¹È¸èa**n5235Óû§ÔÚ2018.07.17Ìá½»Á˹ØÓÚ¡°ÌÆÄɵÂÌØÀÊÆÕÓÃexcelºê¶Ôsheet°´Ö¸¶¨ÁÐÄÚÈÝÃüÃû²ð·Ö³ÉÈô¸ÉÎļþ¡±µÄÌáÎÊ£¬»¶Ó­´ó¼ÒÓ¿Ô¾·¢±í×Ô¼ºµÄ¹Ûµã¡£Ä¿Ç°¹²ÓÐ1¸ö»Ø´ð£¬×îºó¸üÐÂÓÚ2025-02-06T08:46:06¡£Ï£Íû´ó¼ÒÄܹ»°ïÖúËý¡£

ÏêϸÎÊÌâÃèÊö¼°ÒÉÎÊ£ºÆÚ´ýÄúµÄ´ð°¸£¬Ð»Ð»Äã°ïÎÒ,×£Äã¿ìÀÖ,Ô¸ÄãÊÂÊÂÈçÒâ £¡

Ï£ÍûÒÔϵĻشð£¬Äܹ»°ïÖúÄã¡£

µÚ1¸ö»Ø´ð

Óû§Ãû£ºÄäÃûÓû§  

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