[算表] vba range物件寫入值問題

[nazomegami (深呼吸~)]

軟體: excel

版本:2016

各位大大好

我想要將sheets(1)的資料移至sheets(2)

我是以range物件的方式來進行

但最後出現錯誤，不知道問題為何?

請各位版大解惑，謝謝。

檔案連結如下：

https://drive.google.com/file/d/0By1rG_0drdV2R1Q1WV9lQkd1clJtbVNhNUJnX0hFdkhaN
UVF/view?usp=drivesdk

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 223.139.171.30
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1479695262.A.A53.html
→ soyoso: range.select的部分要於該工作表內
→ soyoso: 1.宣告方面Ar,Rng as Range這不是表示二個都宣告為range
→ soyoso: 2.工作表1的資料要偏移成為工作表2的話，並不是range.
→ soyoso: resize內偏移，而是以range.offset
→ soyoso: Rng.Value = Ar的寫法無法輸出結果，應為Rng = Ar.Value
→ soyoso: 如執行巨集所在的工作表如於sheets(1)的話，Ar帶入範圍是
→ soyoso: 不產生錯誤，如是在其他工作表的話要將sheets(1)放至cells
→ soyoso: 前面，或是先worksheet.select於sheets(1)
→ soyoso:         也可worksheet.activate
→ nazomegami: 原本的問題解決了，謝謝你
→ nazomegami: 不過現在如果要貼到sheets(2)的位置是動態時
→ nazomegami: 我是用a&Range("A1000").End(xlUp).Row+1來判斷
→ nazomegami: 但是失敗了，不知有無解法?
→ nazomegami: 我的檔案如下
→ nazomegami: https://drive.google.com/file/d/0By1rG_0drdV2RkRRU
→ nazomegami: lFtVlUySnFiQzZYMnZWNTRKUTlsNmow/view?usp=drivesdk
→ nazomegami: 以上兩行要合在一起看，謝謝!
→ soyoso: [a1]的寫法，無法以字串合併方式，可用range("a" &
→ soyoso: range.end().row)或cells(range.end().row,1)，偏移上再調
→ soyoso: 整
→ soyoso: 亦或於range.end()取得儲存格後，再offset偏移
→ nazomegami: 已測試成功，謝謝!