返回列表 上一主題 發帖

[轉貼] VBA的寫作技巧與增進效能

wjt9093

帖子
14 
主題
1 
精華
0 
積分
15 
點名
0  
作業系統
win10 
軟體版本
office 2003 2007 
閱讀權限
10 
性別
男 
註冊時間
2014-11-7 
最後登錄
2015-8-17 
1# 跳轉到 »
發表於 2014-11-19 10:21 | 顯示全部帖子
回復 1# Hsieh
請問不同的Sheet及Range,得不到正確結果!?應該入何修正:L
Sheets(a1).Range("A4:B36") = Sheets(a2).Range("B5:B37,E5:E37")

TOP

wjt9093

帖子
14 
主題
1 
精華
0 
積分
15 
點名
0  
作業系統
win10 
軟體版本
office 2003 2007 
閱讀權限
10 
性別
男 
註冊時間
2014-11-7 
最後登錄
2015-8-17 
2#
發表於 2014-11-19 18:05 | 顯示全部帖子
回復 94# Hsieh
感謝您的指導,不過發現執行後仍有問題,最後試很久,須加.value才成功!再次感謝您,讓程式更精簡!
Sheets(a1).Range("A4:A36").Value = Sheets(a2).Range("B5:B37").Value
Sheets(a1).Range("B4:B36").Value = Sheets(a2).Range("E5:E37").Value

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題