[µo°Ý] ¦p¦ó±N"±ÄÁʳæ"¤º®e¨Ì§Ç¼g¤J¥t¤@­Ósheet?

guaga

·Q½Ð°Ý¤@¤U¦U¦ìVBA°ª¤â~
³Ìªñ¦b¬ã¨s¤@­Ó¯àÅý
¦p¦ó±N"±ÄÁʳæ"¤º®e¨Ì§Ç¼g¤J¥t¤@­Ó"®w¦s°O¿ý"sheet?
(¥»¨Ó·Q­n¥Îªþ¥[ÀÉ®× ·|¤ñ¸û¦n»¡©ú ¥i¬Oªþ¥[¤£¤W¨Ó)

¦³ÂI¹³
https://www.youtube.com/watch?v=deRlUjhIHOo   
³oºØª¬ªp

¥H¤U¬O¼gªº¸ê®Æ,¤w¸g·Q¤F¦n¤[ª¦¤Fº¡¦hªº¤å °£¤F¬Ý¤£À´ªº¤§¥~
§Ú³o­Ó·s¤â´N¬O¤£·|¼g§r
³Â·Ð¦U¦ì¤F

Sub ¼g¤J¸ê®Æ()
If Range("A:A").End(xlDown).Row = 65536 Then
End If
Dim a(10)
a(0) = Range("B5")
a(1) = Range("D5")
a(2) = Range("J5")
a(3) = Range("C6")
a(4) = Range("B9")
a(5) = Range("D9")
a(6) = Range("E9")
a(7) = Range("F9")
a(8) = Range("G9")
a(9) = Range("H9")
a(10) = Range("I9")


Sheets("®w¦s°O¿ý").Select

End Sub

guaga

¦^´_ 2# Kubi
§A¦n §Ú¸Õ¹L³o¼Ëªº¤èªk ¤£¹L ¤£¦æ­C
¤wªþ¤WÀÉ®×

guaga

¦^´_ 3# stillfish00


    §A¦n,§Ú¤w¸g¥I¤WÀɮפF ³Â·Ð§A¤F

guaga

¦^´_ 2# Kubi

§Ú¤w¸g§Ë¦n¤F «D±`ÁÂÁ§A  ¬O§Ú¦Û¤v§âÄæ¦ì¶ñ¿ù©Ò¥HÅã¥Ü¤£¥X¨Ó
¤£¹L"«~¦W"ªº¦a¤è ¦³¸ê®Æ,«oÅã¥Ü¤£¥X¨Ó­C

Sub test()
    Dim arr
    Sheets("±ÄÁʳæ").Select
    arr = Array([D5], [J5], [B6], [C10], [D10], [E10], [F10], [G10], [H10], [I10], [J10])
    Sheets("±ÄÁÊ°O¿ý").Select
    Cells([A65536].End(3).Row + 1, 1).Resize(1, UBound(arr)) = arr
End Sub

guaga

¦^´_ 7# GBKEE

ª©¥D§A¦n
³o¼Ë¨Ï¥Î¤W¨S¦³°ÝÃD
¥i¬O¿é¤J¤Uµ§¸ê®Æ®É¯à¤§«eªº¸ê®Æ´N·|¤£¨£ ¦³¸Ñ¶Ü

guaga

¦^´_ 9# GBKEE
ÁÂÁª©¥DÀ°§Ú¸Ñ¨M³o­Ó°ÝÃD
¥i¥H¶¶«K½Ð°Ý¤@¤U ¤@¶}©l§Ú¼gªº¨º­Óµ{¦¡ ¬°¬Æ»ò·|¦æ¤£³q¶Ü?

guaga

¦^´_ 12# c_c_lai


1. ±ÄÁʤé´Á¡B¨ì³f¤é´Á ©ó¶×¤J¦Ü "±ÄÁÊ°O¿ý"¡A¦p¦ó¯à¦P®É¶×¤J YYYYMMDD «¬ºA
§Ú¥uª¾¹D ¥i¥H¦b§A¿ï¨úªºÀx¦s®æ /¥kÁä/Àx¦s®æ®æ¦¡/¼Æ­È-¤é´Á
¿ï¾Ü§Y¥i

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

guaga

¦^´_ 24# GBKEE

­qÁʳæ.rar (14.38 KB)

¤U¸ü¦¸¼Æ: 16

2013-11-26 11:54

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

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?