oobird

¦¹¨Ò¤¤¶¡¬q

1. sh.Sort.SortFields.Add Key:=sh.Range("AC5:AC" & n)
   
2.         sh.Sort.SortFields.Add Key:=sh.Range("u5:u" & n)
   
3.         sh.Sort.SortFields.Add Key:=sh.Range("q5:q" & n)
   
4.         sh.Sort.SortFields.Add Key:=sh.Range("c5:c" & n)
   
5.         sh.Sort.SortFields.Add Key:=sh.Range("d5:d" & n)

½Æ»s¥N½X

¥i¥H§âÄæ¦W©ñ¦b°}¦C¤¤´`Àô

1. ar = Array("ac", "u", "q", "c", "d")
   
2.         For i = 0 To UBound(ar)
   
3.             sh.Sort.SortFields.Add Key:=sh.Range(ar(i) & "5:" & ar(i) & n)
   
4.         Next

½Æ»s¥N½X

¬O³o­Ó·N«ä¶Ü¡H

PJChen

¦^´_ 4# oobird
Ãþ¦ü¹³¥H¤U³o¼Ëªº,§Ú·Pı«Ü¤£¿ù,½Ð§AÀ°§Ú¬Ý¬Ý¬O¤£¬O¥i¦æ?

1. Sub Acopy_from_Multi_format()
   
2.     Dim Wb(1 To 2) As Workbook, xS As Integer, Ar1(), Ar2()
   
3.     '*** «ü©wµ¹ÅܼÆ: ¦pµ{§Ç«Ü¤j ­×§ï¦WºÙ®É¤£¥²¦bµ{§Ç¤¤¤@¤@§ó§ï ***
   
4.     Dim Ar(1 To 2)
   
5.     Set Wb(1) = Workbooks("2011 BCMart Multi-Format.xlsx")
   
6.     Set Wb(2) = Workbooks("VBA Cluster.xlsm")
   
7.     Ar1 = Array("BCM±±ºÞ", "Factory ship", "Chart", "HD")    '¸m¤J°}¦C
   
8.     Ar2 = Array("A:EK", "A:AP", "A:AQ", "A:AO")                '¸m¤J°}¦C
   
9.     For xS = 0 To UBound(Ar1)     '-> Array("BCM±±ºÞ", "Factory xsip", "Chart")
   
10.         With Wb(1).Sheets(Ar1(xS))                                  '¥N¤J Ar1(xS)
    
11.             .Columns("A:EK").Hidden = False
    
12.             Intersect(.UsedRange, .Range(Ar2(xS))).SpecialCells(xlCellTypeVisible).Copy
    
13.                                    ''¥N¤J Ar2(xS) : ¥ý°µ½Æ»sªº°Ê§@
    
14.                 With Wb(2).Sheets(Ar1(xS))                              '¥N¤J Ar1(xS)
    
15.                     .Range("A1").PasteSpecial Paste:=xlPasteAll         '§¹¥þ½Æ»s
    
16.                     .Range("A1").PasteSpecial Paste:=xlPasteValues      '½Æ»s­È
    
17.                     .Columns("A:EK").Hidden = False
    
18.             End With
    
19.         End With
    
20.     Next
    
21.     Application.CutCopyMode = False
    
22. End Sub

½Æ»s¥N½X

oobird

¥Î°}¦C¤è¦¡ªº¼gªk?~¬O«ü±Æ§Ç¶Ü¡H
±Æ§ÇÁÙ¬O¥Î¤u§@ªí¦Û¦³ªº±Æ§Ç¤è¦¡®Ä²v°ª±o¦h
¥Î°}¦C©Î»¼°j±Æ§Ç¥N½X³£·|¼g±o«Üªø«Ü½ÆÂø¡A¦Ó¥BºC¡C
­Ë¬O³o¸Ì±Æ§Çªº±ø¥ó¥i¥H¥Î´`Àô¨Ó´î¤Ö¥N½X¶q¡A­Y¼ô±x´`Àô¤Î¬ÛÃöÅܼƴN¤£¥Î¤@¦æ¦æªº¼g¤F¡C

PJChen

¦^´_ 2# oobird
±z¦n,

¯à¤£¯à±Ð§Ú¥Î°}¦C¤è¦¡ªº¼gªk?³o¼Ë¥H«á­Y¸ê®Æ¦³Åܰʭקï·|§ó¤è«K!

ÁÂÁ±z.

oobird

1. Sub yy()
   
2.     For Each sh In Sheets '¦b©Ò¦³¤u§@ªí¤¤´`Àô
   
3.         sh.UsedRange = sh.UsedRange.Value '§â¤½¦¡µ²ªGÅܦ¨­È
   
4.         sh.[a4:ad4].AutoFilter '¨ú®ø¦Û°Ê¿z¿ï
   
5.         sh.[a4:ad4].AutoFilter '«Ø¥ß¦Û°Ê¿z
   
6.         
   
7.         n = sh.[AC1000].End(3).Row 'acÄæ³Ì«áÀx¦s®æ¦C¸¹
   
8.         sh.Sort.SortFields.Clear '²M°£­««Ø±Æ§Ç±ø¥ó
   
9.         sh.Sort.SortFields.Add Key:=sh.Range("AC5:AC" & n)
   
10.         sh.Sort.SortFields.Add Key:=sh.Range("u5:u" & n)
    
11.         sh.Sort.SortFields.Add Key:=sh.Range("q5:q" & n)
    
12.         sh.Sort.SortFields.Add Key:=sh.Range("c5:c" & n)
    
13.         sh.Sort.SortFields.Add Key:=sh.Range("d5:d" & n)
    
14. 
    
15.         With sh.Sort '¹ï«ü©w½d³ò¥H«ü©w±ø¥ó±Æ§Ç
    
16.             .SetRange sh.Range("A5:AD" & n)
    
17.             .Header = xlNo
    
18.             .MatchCase = False
    
19.             .Orientation = xlTopToBottom
    
20.             .SortMethod = xlPinYin
    
21.             .Apply
    
22.         End With
    
23.     Next '¤U¤@­Ó¤u§@ªí
    
24. End Sub

½Æ»s¥N½X

¤é´ÁÄæ¦ì¤é´Á®æ¦¡¤£¥¿½T·|¼vÅT±Æ§Ç¥¿½T©Ê