返回列表 上一主題 發帖

[發問] 關於跨工作表的參照問題..

ashan0418

帖子
59 
主題
5 
精華
0 
積分
75 
點名
130  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
基隆 
註冊時間
2012-7-5 
最後登錄
2024-5-13 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章
1# 跳轉到 »
發表於 2015-1-21 13:19 | 顯示全部帖子
回復 1# saleen

Sheets("工作表2").Range("A2:Z2").Copy Sheets("工作表1").Range("A2")

TOP

ashan0418

帖子
59 
主題
5 
精華
0 
積分
75 
點名
130  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
基隆 
註冊時間
2012-7-5 
最後登錄
2024-5-13 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章
2#
發表於 2015-1-21 16:45 | 顯示全部帖子
回復 3# saleen


    Sheets("工作表2").Range("A2:Z2").Copy
    Sheets("工作表1").Range("A2").PasteSpecial Paste:=xlPasteValues

TOP

ashan0418

帖子
59 
主題
5 
精華
0 
積分
75 
點名
130  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
基隆 
註冊時間
2012-7-5 
最後登錄
2024-5-13 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章
3#
發表於 2015-1-22 11:35 | 顯示全部帖子
回復 5# saleen


Sheets("工作表1").Range("A2:" & [iv2].End(xlToLeft).Address).Copy
Sheets("工作表3").Range("A2").PasteSpecial Paste:=xlPasteValues   


這樣試試!!

TOP

        靜思自在 : 話多不如話少，話少不如話好。
返回列表 上一主題