返回列表 上一主題 發帖

[發問] 把資料貼在最後”列”的寫法

dino1978

帖子
38 
主題
4 
精華
0 
積分
65 
點名
0  
作業系統
Window7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-12-16 
最後登錄
2013-12-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-12-22 10:20 | 只看該作者

[發問] 把資料貼在最後”列”的寫法

請教各位先進

我爬文時查到把 [資料貼在最後”列”的寫法]
Range("A1:A10").Copy .Range("A65536").End(xlUp).Offset(1, 0)
但是在執行時會出現如下圖的錯誤, 是我哪邊疏忽了
或少了什麼東西?
Error.PNG

另外想請教的是
若是想把儲存格(A16)的資料複置到Sheet2的A欄的最後一列
是像這樣子寫嗎

Range("A1:A10").Copy .Sheet2.Range("A65536").End(xlUp).Offset(1, 0)

謝謝各位先進的指導
收藏 分享

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
2#
發表於 2011-12-22 12:26 | 只看該作者
本帖最後由 hugh0620 於 2011-12-22 12:27 編輯

hi~ 樓主~ 你的寫法多了一個點
Range("A1:A10").Copy .Range("A65536").End(xlUp).Offset(1, 0)
下述為正確的寫法
Range("A1:A10").Copy Range("A65536").End(xlUp).Offset(1, 0)

另外想請教的是
若是想把儲存格(A16)的資料複置到Sheet2的A欄的最後一列
是像這樣子寫嗎
Range("A1:A10").Copy .Sheet2.Range("A65536").End(xlUp).Offset(1, 0)

也可以寫成
Sheet2.Range("A65536").End(xlUp).Offset(1, 0)=Range("A16")
學習才能提升自己

TOP

dino1978

帖子
38 
主題
4 
精華
0 
積分
65 
點名
0  
作業系統
Window7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-12-16 
最後登錄
2013-12-13 
3#
發表於 2011-12-22 13:46 | 只看該作者
回復 2# hugh0620


    感謝Hugh大大, 成功了
學習了  謝謝您

TOP

        靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。
返回列表 上一主題