ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°ª¤HÀ°¦£°£¿ù¡AÁÂÁÂ~

¦^´_ 47# GBKEE


   ·P¿E¸ÑÄÀ¡A
¦ý¬O§Ú¸Õ¹L°£¤F­è¤~³o¥y Set Rng(1) = Rng(1).End(xlDown).Offset(1)¥X²{°ÝÃD¥~¡A·í§ÚEÄ椤¶¡¦³¤@¦CªÅ¥Õ¡A´N¤£À´©¹¤Ucopy¡A©Ò¥H¤~¥ÎAÄæ¡A©ú¥Õ­ì²z¡A¦ý´N¬OÂण¹L¨Ó«ç¼Ë§ï¡H

         With Workbooks.Open("C:\Documents and Settings\USER\®à­±\Patrick.XLSX").Sheets("SHEET1")

            Set Rng(2) = .[A2:L2]

            Set Rng(2) = Rng(2).Resize(.[E1].End(xlDown).Row - 1)

            Rng(2).Copy Rng(1).Cells(1, -3)

            .Parent.Close False

TOP

¦^´_ 47# GBKEE


    ¥¿¦p²Ä38¶KPatrick.XLSX¡AE Äæ¥u¦³´XÄæ¸ê®Æ«ç·|¶W¥X½d³ò¡HSet Rng(2) = Rng(2).Resize(.[E1].End(xlDown).Row - 1)³o¥y¥H¤°»ò§@¬°³W«h¡H

TOP

¦^´_ 50# GBKEE


    ­ì¨Ó¬O³o¼Ë¼gRange("e" & ¡K§Ú´N¬O·Q¤£³q«ç¼Ë¥Î»yªkªí¹F³o¥y¸Ü!¤§«eÁÙ·QE1000¨Óªí¥Ü¡A¦ý©ñ¿ù¦b¤W¤@¥y

TOP

¦^´_ 50# GBKEE


    Option Explicit

Sub Ex()

   Dim Rng(1 To 2) As Range
   
   
     With Workbooks("payment.XLSM").Sheets("2012")
         Sheets("2012").Range("A2:L65536").ClearContents
         Sheets("2012").Range("A2:L65536").Interior.Color = xlNone

         .Range("A1").CurrentRegion.Offset(1) = ""
         
        Set Rng(1) = .[e2]

             With Workbooks.Open("C:\Documents and Settings\USER\®à­±\Connie.XLSX").Sheets("SHEET1")

             Set Rng(2) = .[A2:L2]

             Set Rng(2) = Rng(2).Resize(.Range("E" & .Rows.Count).End(xlUp).Row - 1)

             Rng(2).copy Rng(1).Cells(1, -3)
            
             .Parent.Close False

         End With
        
        Set Rng(1) = .Range("E" & .Rows.Count).End(xlUp).Offset(2)
        
         With Workbooks.Open("C:\Documents and Settings\USER\®à­±\Lily.XLSX").Sheets("SHEET1")

            Set Rng(2) = .[A2:L2]

           Set Rng(2) = Rng(2).Resize(.Cells(.Rows.Count, "E").End(xlUp).Row - 1)

           Set Rng(2) = Rng(2).Resize(.Range("E" & .Rows.Count).End(xlUp).Row - 1)

            Rng(2).copy Rng(1).Cells(1, -3)

            .Parent.Close False

        End With
        
        Set Rng(1) = .Range("E" & .Rows.Count).End(xlUp).Offset(2)

         With Workbooks.Open("C:\Documents and Settings\USER\®à­±\Jane.XLSX").Sheets("SHEET1")

            Set Rng(2) = .[A2:L2]
            
            Set Rng(2) = Rng(2).Resize(.Cells(.Rows.Count, "E").End(xlUp).Row - 1)

            Set Rng(2) = Rng(2).Resize(.Range("E" & .Rows.Count).End(xlUp).Row - 1)

            Rng(2).copy Rng(1).Cells(1, -3)

            .Parent.Close False

        End With
        
        Set Rng(1) = .Range("E" & .Rows.Count).End(xlUp).Offset(2)
        
         With Workbooks.Open("C:\Documents and Settings\USER\®à­±\Jenny.XLSX").Sheets("SHEET1")

            Set Rng(2) = .[A2:L2]

           Set Rng(2) = Rng(2).Resize(.Cells(.Rows.Count, "E").End(xlUp).Row - 1)

           Set Rng(2) = Rng(2).Resize(.Range("E" & .Rows.Count).End(xlUp).Row - 1)

            Rng(2).copy Rng(1).Cells(1, -3)

            .Parent.Close False

        End With
        
        Set Rng(1) = .Range("E" & .Rows.Count).End(xlUp).Offset(2)

         With Workbooks.Open("C:\Documents and Settings\USER\®à­±\Patrick.XLSX").Sheets("SHEET1")

            Set Rng(2) = .[A2:L2]

           Set Rng(2) = Rng(2).Resize(.Cells(.Rows.Count, "E").End(xlUp).Row - 1)

           Set Rng(2) = Rng(2).Resize(.Range("E" & .Rows.Count).End(xlUp).Row - 1)

            Rng(2).copy Rng(1).Cells(1, -3)

            .Parent.Close False

        End With
End With

End Sub

¸g¹L§ï¨}«á¡A¦¨¥\¤F¡A´N¦¨®Ä¼g¥X¨Ó»P¤j®a¤À¨É~~

TOP

¦^´_ 53# GBKEE


    ½Ð°Ý¬°¦ó³o­Ófile·|¦³10MB¡A¥u¦³³o­Óµ{¦¡¡A¨ä¥Lªº³£¨S¦³¡H

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD