软件: 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偏移

已测试成功，谢谢!