oobird

À³¸Ó n = sh.UsedRange.Rows.Count (¨Ï¥Î¤¤ªºÁ`¦C¼Æ)¤£·|¨ú¹L¤jªº½d³ò
©p¥i¥H¥Îf8Áä³v¥y¹B¦æ¡A¬Ý¬Ý¹B¦æ¨ì³o¤@¦æ®Énªº­È¬O§_¤u§@ªíªº³Ì«á¤@¦C¡C
­Y¤£¬O´N¶·­n§â©³¤UªºªÅ¥Õ¥þ³¡¿ï¤¤«ödelete²M°£
¤]¥i¥H§ï¤@¤U³o¥y¸Õ¸Õ¡G
n=sh.[d10000].end(3).row (DÄ榳¸ê®Æªº³Ì«á¦C)

PJChen

¦^´_ 35# oobird
¤j®v,
§Ú¸Õ¤F¤@¤U,¸ò­ì¨Óªº¤@¼Ë,·|¥X²{"¶ñº¡Àx¦s®æ"ªº¦r¼Ë,µM«ásheet.."Àt³t"§@·~,ÁÙ¦³§Oªº»yªk¥i¥HÅý§Ú¦A¸Õ¸Õ¬Ý¶Ü?«ô°U¤F.

oobird

1. Workbooks("2012 samples Chart.xlsx").Activate
   
2.    For s = 2 To 7 '±q2ndªº¤u§@ªí°õ¦æ¦Ü7st
   
3.    Sheets(s).Activate
   
4.    Set sh = ActiveSheet
   
5.    n = sh.UsedRange.Rows.Count
   
6.             sh.[aa5].Resize(n, 12) = sh.[aa5].Resize(n, 12).Value    '§â¤½¦¡µ²ªGÅܦ¨­È
   
7.             sh.AutoFilterMode = False     '¨ú®ø¦Û°Ê¿z¿ï
   
8.             sh.[a4:ad4].AutoFilter    '«Ø¥ß¦Û°Ê¿z

½Æ»s¥N½X

¨º§ï³o¼Ë§a¡A§Ú¨S¥Î2010«ÜÃø·Q¹³¤@¦Ê¦h¸U¦C¶]°_¨Ó¬O¤°»ò³t«×¡C

PJChen

¦^´_ 33# oobird
¤j®v,
µ{¦¡§ï¦¨³o¼Ë¬O¤£·|±N¨ä¥¦ªºÀx¦s®æ¦³¤½¦¡ªº¦a¤èÅܦ¨­È,¦ý¤]¥X²{¤F¥i©Èªº"Àt³t",¥H«e¥þ³¡Àx¦s®æ¤@°_§@·~«D±`§Ö³tªº,²{¦b¬O¤@­Ó­Ósheet.."Àt³t"§@·~,³oÂI¯à°÷§ïµ½¶Ü?  

oobird

Sh.UsedRange = Sh.UsedRange.Value
§ï¬°
Sh.[aa:al] = Sh.[aa:al].Value

PJChen

¦^´_ 30# oobird
¤j®v,
±Ï©R,§Ú­ì¥ýªº»Ý¨D¬O±N°Ê§@1: AA:AL      ªº½d³òÅܦ¨­È(´N¬O±N¤½¦¡¥h°£)
¦ý§Úµo²{³o­Ó¼g±N¾ã­Ó¤u§@ªí©Ò¦³¤º®e³£Åܦ¨­È,¦Ó¥BÅܦ¨­È¤§«á,­ì¨Ó®æ¦¡³£Åܦ¨©Ç©Çªº¤é´Á®æ¦¡.(¦pªþ¥ó,çP¦â©³ªº¼Ðµù),
EX.zip (20.96 KB)

¤U¸ü¦¸¼Æ: 8

2012-5-9 13:12

¥H¤U¥¨¶°¸Ó¦p¦ó­×§ï¦¨¥u±NAA:AL¦³¸ê®Æªº½d³òÅܦ¨­È?

1.    Workbooks("2012 BCMart Chart.xlsx").Activate
   
2.    For s = 5 To 10 '±q²Ä¬Y­Ó¤u§@ªí°õ¦æ¦Ü²Ä¬Y­Ó
   
3.    Sheets(s).Activate
   
4.    Set Sh = ActiveSheet
   
5.             Sh.UsedRange = Sh.UsedRange.Value    '§â¤½¦¡µ²ªGÅܦ¨­È
   
6.             Sh.AutoFilterMode = False     '¨ú®ø¦Û°Ê¿z¿ï
   
7.             Sh.[a4:ad4].AutoFilter    '«Ø¥ß¦Û°Ê¿z
   
8.     Next    '¤U¤@­Ó¤u§@ªí

½Æ»s¥N½X

PJChen

¦^´_ 30# oobird

Bingo!!
¤Ó¦n¤F°õ¦æok.
¯uÁÂÁ§A!

oobird

°Ú¡A­è­è¨Sª`·N¡A³o¸Ì¨â­Ó i ¦b´`Àô¤¤­«Å|¤F
§ï±¼¨ä¤¤¤@­Ó¡G
For s = 2 To 7 '±q2ndªº¤u§@ªí°õ¦æ¦Ü7st
   Sheets(s).Activate

PJChen

¦^´_ 28# oobird
Hi,
¥¨¶°°õ¦æ«á«ü¦V³o¦æ¦³°ÝÃD,Help!...  For i = 0 To UBound(ar)

1. Sub Try()
   
2.    Workbooks("2012 samples Chart.xlsx").Activate
   
3.    For i = 2 To 7 '±q2ndªº¤u§@ªí°õ¦æ¦Ü7st
   
4.    Sheets(i).Activate
   
5.    Set sh = ActiveSheet
   
6.             sh.UsedRange = sh.UsedRange.Value    '§â¤½¦¡µ²ªGÅܦ¨­È
   
7.             sh.AutoFilterMode = False     '¨ú®ø¦Û°Ê¿z¿ï
   
8.             sh.[a4:ad4].AutoFilter    '«Ø¥ß¦Û°Ê¿z
   
9. 
   
10.             n = sh.[AC1000].End(3).Row    'acÄæ³Ì«áÀx¦s®æ¦C¸¹
    
11.             sh.Sort.SortFields.Clear    '²M°£­««Ø±Æ§Ç±ø¥ó
    
12.             ar = Array("ac", "u", "q", "c", "d")
    
13.             For i = 0 To UBound(ar)
    
14.                 sh.Sort.SortFields.Add Key:=sh.Range(ar(i) & "5:" & ar(i) & n)
    
15.             Next
    
16.             With sh.Sort    '¹ï«ü©w½d³ò¥H«ü©w±ø¥ó±Æ§Ç
    
17.                 .SetRange sh.Range("A5:AD" & n)
    
18.                 .Header = xlNo
    
19.                 .MatchCase = False
    
20.                 .Orientation = xlTopToBottom
    
21.                 .SortMethod = xlPinYin
    
22.                 .Apply
    
23.             End With
    
24.     Next    '¤U¤@­Ó¤u§@ªí
    
25. End Sub

½Æ»s¥N½X

oobird

²Ä5¦æ¶}©lsh.UsedRange = sh.UsedRange.Value
³o­Ó¥sshªºÅܼƫe­±¨Ã¨S¦³©w¸q¡A¬ðµM«_¥X¨Óµ{¦¡´N·|¤¤Â_¤F¡C
¥i¥H³o¼Ë¡G
Workbooks("2012 samples Chart.xlsx").Activate
        For i = 2 To 7  '±q2ndªº¤u§@ªí°õ¦æ¦Ü7st
         Sheets(i).Activate '°õ¦æ¤u§@
set sh =activesheet
            sh.UsedRange = sh.UsedRange.Value  
¥H¤U¤£ÅÜ