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

[µo°Ý] ¦p¦ó±N·JÁ`©ú²Ó(sheet1)¸Ì±N¦U­Ó©ÒÄÝÃþ§O¤À¦C¦Ü¦UsheetÀÉ

[µo°Ý] ¦p¦ó±N·JÁ`©ú²Ó(sheet1)¸Ì±N¦U­Ó©ÒÄÝÃþ§O¤À¦C¦Ü¦UsheetÀÉ

½Ð±Ð¦U¦ì¥ý¶i­Ì~
   §Ú·Q°µÃþ¦ü·|­p¬ì¥Ø±b~sheet1¦WºÙ¬°·JÁ`©ú²Ó¡A¤º®eªºÃþ§O¤À§O¬°¤å¨ã¥Î«~¡BÂåÀø¥Î«~µ¥¶µ¥Ø,
                               sheet2¦WºÙ¬°¤å¨ã¥Î«~
¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@sheet3¦WºÙ¬°ÂåÀø¥Î«~
  ½Ð±Ð¡A¦pªG¦bsheet1Ãþ§OÄÝ©ó¤å¨ã¥Î«~ªº³¡¥÷¦p¦óª½±µ±ø¦C¦bsheet2¤º¡]«D¦X­p¡^
¡@¡@¡@¡@¡@¡@¡@sheet1Ãþ§OÄÝ©óÂåÀø¥Î«~ªº³¡¥÷¦p¦óª½±µ±ø¦C¦bsheet3¤º
   ½Ð±Ð¦U¥ý¶i­Ì¡A³o¦³¿ìªk¹F¦¨¶Ü¡HÁÂÁ Book1.zip (2.01 KB)

¦^´_ 1# phoebegin
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Sh As Worksheet
  4.     With Sheets("·JÁ`©ú²Ó")
  5.         For Each Sh In Sheets          'Sheets : ¤u§@ªíª«¥óªº¶°¦Xª«¥ó
  6.             If Sh.Name <> .Name Then   '¤u§@ªíªº¦WºÙ<>"·JÁ`©ú²Ó"
  7.                 .Range("A1").AutoFilter Field:=2, Criteria1:=Sh.Name
  8.                 '"·JÁ`©ú²Ó" ¦Û°Ê¿z¿ï  ¿z¿ï°ò·ÇÄæ¦ì:=²Ä2Äæ , ¿z¿ï·Ç«h:="¤u§@ªí¦WºÙ"
  9.                 .UsedRange.Columns("a:d").Copy Sh.[a1] '"·JÁ`©ú²Ó" ¦Û°Ê¿z¿ï«áªº¸ê®Æ, ½Æ»s
  10.             End If
  11.         Next
  12.         .Range("A1").AutoFilter   '¨ú®ø "·JÁ`©ú²Ó"¦Û°Ê¿z¿ï¼Ò¦¡
  13.     End With
  14. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE [/b

¦n¼F®`§r~
§Ú~¤£·|vba~
µMª½±µ±N±z´£¨Ñªº¸ê®Æ½Æ»s¥N½X~
´N¹³ÅÜÅ]³N¤@¼Ë~§â§Ú©ì«Ü¤[ªº°ÝÃDµ¹¸Ñ¨M±¼~

GBKEE~¯uªº·P¿E§A~ÁÂÁÂ~

TOP

½Ð°Ý¦U¦ì«e½ú­Ì¡A¤§«e³o­ÓÀÉ¥i¥H¥Î¡A¦ý¦Û±qexcel§ï¦¨2016ª©«á¡A«o¤£Â_§e²{¥X¿ù¡]°õ¦æ¶¥¬q¿ù»~'28'°ïÅ|ªÅ¶¡¤£¨¬¡A¬O­þ¸Ì¥X²{°ÝÃD¤F©O?

TOP

¦^´_ 4# phoebegin

http://forum.twbts.com/thread-18354-1-1.html
§Ú¤£¤Ó½T©w ¥ý¬Ý¬Ý

TOP

google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD