返回列表 上一主題 發帖

複製不帶格式~只要數值

imzues

帖子
72 
主題
24 
精華
0 
積分
172 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-7-16 
最後登錄
2023-7-6 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-4-12 17:16 | 顯示全部帖子

複製不帶格式~只要數值

請教各位大大，這樣寫哪邊有問題
不太會寫程式~請教各位


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
收藏 分享

imzues

帖子
72 
主題
24 
精華
0 
積分
172 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-7-16 
最後登錄
2023-7-6 
2#
發表於 2011-4-13 09:56 | 顯示全部帖子
MySheet.Range("B6").End(xlDown).Offset(1, 0).Resize( , .Count) = .Value      

請問一下大大RESIZE這括號裡的指的是什麼?

TOP

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題