GBKEE

¦^´_ 6# guaga

1. Option Explicit
   
2. Sub test()
   
3.     Dim arr, i As Integer
   
4.     Sheets("±ÄÁÊ°O¿ý").UsedRange.Offset(1).Clear
   
5.     With Sheets("±ÄÁʳæ")
   
6.         For i = 10 To .[B30].End(xlUp).Row
   
7.             arr = Array(.[B5], .[D5], .[J5], .[B6], .Cells(i, "B"), .Cells(i, "D"), .Cells(i, "E"), .Cells(i, "F"), .Cells(i, "G"), .Cells(i, "H"), .Cells(i, "I"), .Cells(i, "J"))
   
8.             Sheets("±ÄÁÊ°O¿ý").Cells([A65536].End(3).Row + 1, 1).Resize(1, UBound(arr)) = arr
   
9.         Next
   
10.     End With
    
11. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 8# guaga
³o¦æµ{¦¡½X¾n¸Ñ±¼

1. 'Sheets("±ÄÁÊ°O¿ý").UsedRange.Offset(1).Clear

½Æ»s¥N½X

GBKEE

¦^´_ 10# guaga
4#ªºÀɮ׶Ü?

¤U¸ü (58.93 KB)

2013-11-8 08:12

GBKEE

¦^´_ 12# c_c_lai

1. Option Base ³¯­z¦¡
   
2. ¦b¼Ò²Õ¼h¦¸¤¤¥Î¨Ó«Å§i°}¦C¯Á¤Þªº¹w³]¤U­­¡C
   
3. »yªk
   
4. Option Base {0 | 1}
   
5. ½Ðª`·N
   
6. ­Y¹w³]ªº¤U­­­È¬° 0¡A«h Option Base ³¯­z¦¡¬O¤£»Ý­nªº¡C­Y»Ý­n¨Ï¥Î®É¡A¦¹³¯­z¦¡¥²¶·¥X²{¦b¼Ò²Õ¤¤¡A¨Ã¥B¦b¥ô¦óµ{§Ç¤§«e¡COption Base ¶È¯à¦b¼Ò²ÕùØ¥X²{¤@¦¸¡A¦Ó¥B¥²¶·¦b§t¦³ºû¼Æªº°}¦C«Å§i¤§«e¡C
   
7. ªþµù ¦b Dim¡BPrivate¡BPublic¡BReDim ©M Static ³¯­z¦¡¤¤¡ATo ¤l¥y´£¨Ñ¸û¨ã¼u©Êªº¤èªk¡A¨Ó±±¨î°}¦C¯Á¤Þªº½d³ò¡CµM¦Ó¡A¦pªG¤£¨Ï¥Î To ¤l¥y¨Ó©ú½Tªº³]©w¤U­­¡A«h¥i¥Î Option Base ¨Ó§ïÅܹw³]­Èªº¤U­­¬° 1¡CArray ¨ç¼Æ©Ò«Ø¥ßªº°}¦C¹w³]¤U­­¥²¬°¹s¡A¤£¨ü Option Base ©Ò¼vÅT¡C
   
8. Option Base ³¯­z¦¡¥u¼vÅT¥¦©Ò¦bªº¼Ò²Õùؤ§°}¦Cªº¤U­­¡C

½Æ»s¥N½X

1. Option Explicit
   
2. Sub test()
   
3.     Dim arr, i As Integer
   
4.     Sheets("±ÄÁÊ°O¿ý").UsedRange.Offset(1).Clear
   
5.     With Sheets("±ÄÁʳæ")
   
6.         For i = 10 To .[B30].End(xlUp).Row
   
7.             arr = Array(.[B5], .[D5].Text, .[J5], .[B6] & .[c6], .Cells(i, "B"), .Cells(i, "D"), .Cells(i, "E"), .Cells(i, "F"), .Cells(i, "G"), .Cells(i, "H"), .Cells(i, "I"), .Cells(i, "J"))
   
8.             Sheets("±ÄÁÊ°O¿ý").Cells([A65536].End(3).Row + 1, 1).Resize(1, UBound(arr) + 1) = arr
   
9.         Next
   
10.     End With
    
11. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 15# c_c_lai

1. Option Explicit
   
2. Sub test()
   
3.     Dim arr, i As Integer
   
4.     Sheets("±ÄÁÊ°O¿ý").UsedRange.Offset(1).Clear
   
5.     With Sheets("±ÄÁʳæ")
   
6.         For i = 10 To .[B30].End(xlUp).Row
   
7.             arr = Array(.[B5], .[D5].Text, .[J5], .[B6] & .[c6], .Cells(i, "B"), .Cells(i, "D"), .Cells(i, "E"), .Cells(i, "F"), .Cells(i, "G"), .Cells
   
8. (i, "H"), .Cells(i, "I"), .Cells(i, "J"))
   
9. '******* .Cells(i, "B")  ³o¤£¤]¬O¦X¨ÖBC¨âÄæ ****************
   
10.             Sheets("±ÄÁÊ°O¿ý").Cells([A65536].End(3).Row + 1, 1).Resize(1, UBound(arr) + 1) = arr
    
11.                        '*************UBound(arr) + 1 À³¥iÅã¥Ü .Cells(i, "J")ªº¸ê®Æ  ********************
    
12.         Next
    
13.     End With
    
14. End Sub

½Æ»s¥N½X

1. Option Explicit
   
2. Option Base 1
   
3. Sub Ex()
   
4.     Dim AR, S
   
5.     S = "S,S,S"
   
6.     S = Split(S, ",")
   
7.     MsgBox UBound(S)
   
8.     MsgBox LBound(S)
   
9.     AR = Array(5, 6)
   
10.     MsgBox UBound(AR)
    
11.     MsgBox LBound(AR)
    
12. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 18# c_c_lai

1. Option Explicit
   
2. Option Base 0   'ªº¨Ò¥~
   
3. Sub Ex()
   
4.     Dim Ar(5 To 10), Br()
   
5.     MsgBox UBound(Ar)
   
6.     MsgBox LBound(Ar)
   
7.     Br = [b3:c5].Value    '¥HÀx¦s®æ¬°°}¦C
   
8.     MsgBox UBound(Br)
   
9.     MsgBox LBound(Br)
   
10. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 21# hu0318s
Sheets("±ÄÁÊ°O¿ý").Cells([A65536].End(3).Row + 1, 1).Resize(1, UBound(arr)) = arr

[A65536].End(3).Row-> ¥ÑA65536©¹¤W¨ì²Ä1­Ó¦³¸ê®Æªº¦C¸¹(.Row)
Sheets("±ÄÁÊ°O¿ý").Cells([A65536].End(3).Row + 1, 1)-> Sheets("±ÄÁÊ°O¿ý").Cells(¦C¸¹,Ä渹)   

Resize ¤èªk:  ½Õ¾ã«ü©wªº½d³ò¡C¶Ç¦^ Range ª«¥ó¡A¸Óª«¥ó¥Nªí½Õ¾ã«áªº½d³ò¡C
UBound ¨ç¼Æ ¶Ç¦^ Long­È¡Aªí¥Ü«ü©w°}¦C¬Yºû³Ì¤j¥i¨Ï¥Îªº°}¦C¯Á¤Þ (µ¥¦P­pºâ°}¦C¬Yºû¤¸¯Àªº¼Æ¶q)
¨Ò Sheets("±ÄÁÊ°O¿ý").Cells(1,1).Resize(1,10)->½Õ¾ã«áªº½d³ò: A1:J1=arr
    Sheets("±ÄÁÊ°O¿ý").Cells(3,2).Resize(1,10)->½Õ¾ã«áªº½d³ò: B3:K3=arr

GBKEE

¦^´_ 23# guaga

1. With Sheets("­qÁʳæ")
   
2.              MsgBox  .[B16].End(xlUp).Row  '¦pªG<8 For : Not Work  
   
3.             For i = 8 To .[B16].End(xlUp).Row

½Æ»s¥N½X

¦p¤£¬OªþÀɬݬÝ

GBKEE

¦^´_ 25# guaga
½Ð¦b§AªþÀɤW¸Õ¸Õ¬Ý

1. Option Explicit
   
2.     Sub TEST1()
   
3.         Dim arr, i As Integer
   
4.         With Sheets("­qÁʳæ")
   
5.         MsgBox .[B15].End(xlUp).Row                             '¦]AÄæ,BÄæ ¬O¦X¨ÖªºÀx¦s®æ,BÄæ¬OªÅ¥Õªº
   
6.         MsgBox .[A17].End(xlUp).Row                             '¦p¹Ï¥Ü .[A10:A16] ³£¦³¸ê®Æ =>10
   
7.             For i = 10 To Application.CountA(.[A10:A16]) + 9    'CountA : ­pºâ[A10:A16]ªº¸ê®Æ¼Æ(¸ê®Æ¤@©w­n¬O³sÄòªº)
   
8.                 arr = Array(.[L4], .[N4], .[L7].Text, .Cells(i, "A"), .Cells(i, "C"), .Cells(i, "E"), .Cells(i, "H"), .Cells(i, "I"), .Cells(i, "J"), .Cells(i, "L"))
   
9.                     '.[L7]¸ê®Æ¤é´Á,¬O¼Æ¦r,.[L7].Text ¥i¶Ç¦^¤é´Áªº®æ¦¡
   
10.                 Sheets("­qÁÊ°O¿ý").Cells([A65536].End(3).Row + 1, 1).Resize(1, UBound(arr)) = arr
    
11.             Next
    
12.         End With
    
13.     End Sub

½Æ»s¥N½X

¤U¸ü (79.21 KB)

2013-11-26 12:30

GBKEE

¦^´_ 27# guaga
¨Ò AR(0 TO 10) ³o°}¦C¦@¦³11­Ó¤¸¯À :  °}¦C¤U­­¯Á¤Þ­È=0  , °}¦C¤W­­¯Á¤Þ­È=10  
UBound(arr): UBound¶Ç¦^°}¦C¤W­­¯Á¤Þ­È

1. Option Explicit
   
2. Sub TEST1()
   
3.     Dim arr, i As Integer
   
4.     With Sheets("­qÁʳæ")
   
5.         For i = 10 To Application.CountA(.[A10:A16]) + 9
   
6.             arr = Array(.[L4], .[N4], .[L7].Text, .Cells(i, "A"), .Cells(i, "C"), .Cells(i, "E"), .Cells(i, "H"), .Cells(i, "I"), "=RC[-1]*RC[-2]", .Cells(i, "J"), .Cells(i, "L"))
   
7.             Sheets("­qÁÊ°O¿ý").Cells([A65536].End(3).Row + 1, 1).Resize(1, UBound(arr) + 1) = arr
   
8.         Next
   
9.     End With
   
10. End Sub

½Æ»s¥N½X