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

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

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

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

¦^´_ 24# GBKEE

­qÁʳæ.rar (14.38 KB)

¤U¸ü¦¸¼Æ: 14

2013-11-26 11:54

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

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

guaga

¦^´_ 26# GBKEE

MsgBox .[B15].End(xlUp).Row      ³o¬q ¥[¶i¥hªº¸Ü ¶]°_¨Ó¥u·|Åã¥Ü¤@¬q
«á¨Ó§Ú§ï¦¨

    Option Explicit
        Sub TEST1()
            Dim arr, i As Integer
            With Sheets("­qÁʳæ")
                For i = 10 To Application.CountA(.[A10:A16]) + 9
                    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"))
                        
                    Sheets("­qÁÊ°O¿ý").Cells([A65536].End(3).Row + 1, 1).Resize(1, UBound(arr)) = arr
                Next
            End With
        End Sub

¤£¹L³ÆµùÄæ¶]¤£¥X¨Ó­C  ¬O¤£¬O¤]­n¼Ð¬W text?

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

guaga

¦^´_ 28# GBKEE
§Ú¤F¸Ñ¤F  ¯uªº«D±`ÁÂÁª©¥D
¤£¹LÁÙ¦³­Ó°ÝÃD·Q½Ð±Ð¤@¤U  ¦pªG­n¦b  sheet ­qÁÊ°O¿ý  ¨ºÃä¦h¥[¤@Äæ
§ï¦¨
Sheets("­qÁÊ°O¿ý").Cells([B65536].End(3).Row + 1, 1).Resize(1, UBound(arr)) = arr

¥i¬OÁÙ¬O±qAÄæ¶}©l¶ñ?

GBKEE

¦^´_ 29# guaga
sheet ­qÁÊ°O¿ý,¨ºÃä¦h¥[¤@Äæ:  ³oarr¬O§A¨ÌSheets("­qÁÊ°O¿ý")Äæ¦ì¤º®e©Ò«ü©wªº¤¸¯À
§A¬O­n­×¥¿ ³oarr, °t¦X³o [¦h¥[¤@Äæ]
­ì¥»³oarr = 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"))
Sheets("­qÁÊ°O¿ý").Cells([A65536].End(3).Row + 1, 1).Resize(1, UBound(arr)+1) = arr

¥i¬OÁÙ¬O±qAÄæ¶}©l¶ñ? : Cells([A65536].End(3).Row + 1, 1) => Cells(¦C¼Æ, Äæ¼Æ):   ¦C¼Æ->¼Æ¦r ,Äæ¼Æ->¼Æ¦r,¦r¦ê-> 1="A"Äæ ,2="B"Äæ ,27="AA"Äæ