軟體: excel
版本:2016
各位大大好
我想要將sheets(1)的資料移至sheets(2)
我是以range物件的方式來進行
但最後出現錯誤，不知道問題為何?
請各位版大解惑，謝謝。
檔案連結如下：
https://drive.google.com/file/d/0By1rG_0drdV2R1Q1WV9lQkd1clJtbVNhNUJnX0hFdkhaN
UVF/view?usp=drivesdk

range.select的部分要於該工作表內1.宣告方面Ar,Rng as Range這不是表示二個都宣告為range2.工作表1的資料要偏移成為工作表2的話，並不是range.resize內偏移，而是以range.offsetRng.Value = Ar的寫法無法輸出結果，應為Rng = Ar.Value如執行巨集所在的工作表如於sheets(1)的話，Ar帶入範圍是不產生錯誤，如是在其他工作表的話要將sheets(1)放至cells前面，或是先worksheet.select於sheets(1)也可worksheet.activate

原本的問題解決了，謝謝你不過現在如果要貼到sheets(2)的位置是動態時我是用a&Range("A1000").End(xlUp).Row+1來判斷但是失敗了，不知有無解法?我的檔案如下https://drive.google.com/file/d/0By1rG_0drdV2RkRRUlFtVlUySnFiQzZYMnZWNTRKUTlsNmow/view?usp=drivesdk以上兩行要合在一起看，謝謝!

[a1]的寫法，無法以字串合併方式，可用range("a" &range.end().row)或cells(range.end().row,1)，偏移上再調整亦或於range.end()取得儲存格後，再offset偏移

已測試成功，謝謝!