工作表单元格数据复制粘贴操作失败【已解决】

lm3312

工作表单元格操作失败，请帮助修改一下错误。

lsc900707

上传附件看看吧。

liulang0808

WK.Range(WK.Cells(3, 5), WK.Cells(MaxR, 5)).Copy其他对应修改即可

lm3312

liulang0808 发表于 2018-6-19 16:49
WK.Range(WK.Cells(3, 5), WK.Cells(MaxR, 5)).Copy其他对应修改即可

您的意思是不是，凡是Worksheets对象的属性，后面只能跟一个单元格对象，而不能跟象range(cells(),cells())这样的区域对象，或组合对象？

lm3312

lsc900707 发表于 2018-6-19 16:48
上传附件看看吧。

谢谢，方法可按您的想法修改，不用管我原来的写法。

lsc900707

lm3312 发表于 2018-6-19 17:55
谢谢，方法可按您的想法修改，不用管我原来的写法。

1. Sub gj23w98()
   
2.     r = Cells(Rows.Count, 5).End(3).Row
   
3.     arr = Range("e3:e" & r)
   
4.     Range("e3:e" & r) = arr
   
5. End Sub
   

复制代码

liulang0808

lm3312 发表于 2018-6-19 17:16
您的意思是不是，凡是Worksheets对象的属性，后面只能跟一个单元格对象，而不能跟象range(cells(),cells( ...

对啊，楼主测试怎样啊？

lm3312

liulang0808 发表于 2018-6-19 20:38
对啊，楼主测试怎样啊？

谢谢版主，这个问题解决了，但是，
原代码是针对一个工作表处理的，现在有几个工作表要处理，于是，我修改了一下代码，这下又出问题了。上传的附件见5楼，麻烦帮忙再看一看，昨天事多，忘了回复，不好意思。
另，这个只是处理复制粘贴单元格数据的步骤，接下来还有其他数据要处理，所以，这些代码只是过程的一部分。

lm3312

lsc900707 发表于 2018-6-19 18:34

不好意思，我其实给出了两个表，还有代码，表示不是处理当前活动工作表，而是需要处理多个工作表的数据，接下来，还有其他的数据处理代码，这只是一部分的代码，所以，需要用到工作表对象，请麻烦再看看，谢谢。

lm3312

liulang0808 发表于 2018-6-19 20:38
对啊，楼主测试怎样啊？

谢谢版主，原来的问题解决了，于是，
由于有多个工作表要处理，所以我又修改了一下代码，这下又有问题了（上传的附件在5楼），麻烦再帮忙处理一下，另外，注释部分的代码，好象不合适，不知道能用不。