guaga

¦^´_ 24# GBKEE

­qÁʳæ.rar (14.38 KB)

¤U¸ü¦¸¼Æ: 16

2013-11-26 11:54

¤wªþ¤WÀÉ®×
³Â·Ðª©¥D¸Ñ¨M¤F:dizzy:

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ªþÀɬݬÝ

guaga

¦^´_ 7# GBKEE
¤£¦n·N«ä ¤µ¤Ñ¦b°µ§OªºªF¦èªº®É­Ôµo²{
§Ú¥Î¦P¼Ëªºªí®æ §ï¤F´X­Ó¦r ´N§¹¥þ¤£²z§Ú'¤F?
    Option Explicit
    Sub test()
        Dim arr, i As Integer
        Sheets("­qÁÊ°O¿ý").UsedRange.Offset(1).Clear
        With Sheets("­qÁʳæ")
            For i = 8 To .[B16].End(xlUp).Row
                arr = Array(.[B5], .[D5], .[J5], .[B6], .Cells(i, "B"), .Cells(i, "A"), .Cells(i, "E"), .Cells(i, "F"), .Cells(i, "G"), .Cells(i, "H"), .Cells(i, "I"), .Cells(i, "J"))
                Sheets("­qÁÊ°O¿ý").Cells([A65536].End(3).Row + 1, 1).Resize(1, UBound(arr)) = arr
            Next
        End With
    End Sub

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

hu0318s

³øºpªO¥D§Ú¬O·s¤â¥i¥H½Ð±Ð¤@¤U¹ï³o¦æµ{¦¡¤£¤Ó¤F¸Ñ  ¬O¨ìSheets("±ÄÁÊ°O¿ý").µM«á±q³Ì«á¤@¦CµM«á¦barr¤ºªº¤º®e¶K¤W¶ÜSheets("±ÄÁÊ°O¿ý").Cells([A65536].End(3).Row + 1, 1).Resize(1, UBound(arr)) = arr

c_c_lai

¦^´_ 19# GBKEE
µL½×¬O Option Base 1 ©ÎªÌ¬O Option Base 0¡A¥HÀx¦s®æ¬°°}¦C±ø¥ó
¤Uªº½d¨Ò´ú¸Õ³ºµM·| Ignore Option Base ªº«Å§i¡A ÁÂÁ±zªº«ü¾É¡I

¤U¸ü (29.96 KB)

2013-11-9 10:38

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

c_c_lai

¦^´_ 13# GBKEE
§Ú§¹¥þ¤F¸Ñ #13 ©Ò»¡ªº Option Base ¥¿½T¨Ï¥Î¤èªk¤F¡A
¦pªG¤£«Å§i¡AArray °}¦C¬O±q 0 ¶}©l°_ºâ¡A©Ò¥H UBound(arr) ­È·|¬° 11¡A
¤Ï¤§¡B«Å§i Option Base 1¡A«h Array ¬O±q 1 ¶}©l°_ºâ¡A¦]¦¹ UBound(arr) ­È·|¬° 12¡C
·PÁ±z¥J²Ó¦a»¡©ú¡I

c_c_lai

¦^´_ 16# GBKEE
¤Ó·P¿E±z¤F¡A§Ú«ç»ò·|¨S·Q¨ì UBound(arr) ªº°ÝÃD¡A
µoı§ÚÀK¨º¶¡´¼¼z¥¼¯à¦P®É¦¨ªø¡AÁÂÁÂËç¡I

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