½Æ»s¤£±a®æ¦¡~¥u­n¼Æ­È

imzues

½Ð±Ð¦U¦ì¤j¤j¡A³o¼Ë¼g­þÃ䦳°ÝÃD
¤£¤Ó·|¼gµ{¦¡~½Ð±Ð¦U¦ì


Sub Ex()
    Dim MySheet As Worksheet

    Set MySheet = ActiveSheet

    With Workbooks.Open("d:\test\¥~³¡¸ê®Æ.xls")
   
    With Sheets("4¤ë").Range("M9:AF9")
   
        .MySheet.Range("B6").End(xlDown).Offset(1, 0) = .Value
      
        .Close 0

    End With

    End With

'
End Sub

hugh0620

GBKEE ¤j¤j¦b§Ú°Ýªº¬Û¦P°ÝÃDªº¦^ÂÐ
Sub Ex()
    With Sheet1.Range("K4")
        Sheet1.Range("E4").End(xlDown).Offset(1, 0) = .Value
    End With
End Sub

Hsieh

¦^´_ 1# imzues


    Sub Ex()
    Dim MySheet As Worksheet

    Set MySheet = ActiveSheet'·í«e§@¥Î¤¤ªº¤u§@ªí³]µ¹ÅܼÆ

    With Workbooks.Open("d:\test\¥~³¡¸ê®Æ.xls")"¶}±ÒÀɮסA¦¹®É§@¥Î¤¤¤u§@ªí¬°¶}±ÒÀɮ׫᪺¤u§@ªí¡A¤£­n¸òMySheet²V²c¤F
   
    With Sheets("4¤ë").Range("M9:AF9")'³o·|«ü©w¨ì¥~³¡¸ê®Æ.xlsªºSheets("4¤ë").¤u§@ªí¤¤M9:AF9½d³ò
   
        .MySheet.Range("B6").End(xlDown).Offset(1, 0) = .Value'¦¹¦æ´N·|²£¥Í¿ù»~¡A¦]¬°¥~³¡¸ê®Æ.xlsªºSheets("4¤ë").¤u§@ªí¤¤M9:AF9¤£¥i¯à¥]§t¨ì MySheet¡AMySheetªºª«¥ó¶¥¼h¬OSHEET¡A¦Ó¦¹°Ï¬q¤¤.ªº±Ô­z¥²¶·¬OSHEET¶¥¼h¤Uªºª«¥ó
      
        .Close 0  '¥~³¡¸ê®Æ.xlsªºSheets("4¤ë").¤u§@ªí¤¤M9:AF9½d³ò¤£¥i¯à³òÃöÀɰʧ@


    End With

    End With

'
End Sub

1.     Sub Ex()
   
2.     Dim MySheet As Worksheet
   
3. 
   
4.     Set MySheet = ActiveSheet'·í«e§@¥Î¤¤ªº¤u§@ªí³]µ¹ÅܼÆ
   
5. 
   
6. With Workbooks.Open("d:\test\¥~³¡¸ê®Æ.xls")   
   
7.     With Sheets("4¤ë").Range("M9:AF9")'³o·|«ü©w¨ì¥~³¡¸ê®Æ.xlsªºSheets("4¤ë").¤u§@ªí¤¤M9:AF9½d³ò  
   
8.         MySheet.Range("B6").End(xlDown).Offset(1, 0).Resize( , .Count) = .Value      
   
9.     End With
   
10.         .Close 0   
    
11. End With
    
12. End Sub

½Æ»s¥N½X

imzues

MySheet.Range("B6").End(xlDown).Offset(1, 0).Resize( , .Count) = .Value      

½Ð°Ý¤@¤U¤j¤jRESIZE³o¬A¸¹¸Ìªº«üªº¬O¤°»ò?

GBKEE

¦^´_ 4# imzues
MySheet.Range("B6").End(xlDown).Offset(1, 0).Resize(¦C¼Æ ,Äæ¼Æ) = .Value