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

phoebegin

½Ð±Ð¦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)

¤U¸ü¦¸¼Æ: 27

2015-7-7 10:59

hcm19522

https://blog.xuite.net/hcm19522/twblog/590705199

singo1232001

¦^´_ 4# phoebegin

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

phoebegin

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

phoebegin

¦^´_ 2# GBKEE [/b

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

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

GBKEE

¦^´_ 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