求多工作表最后一行结果复制粘贴到另一工作表的代码

小草看日出

我想把EXCEL文件《汇总计算》中1-16工作表的最后一行计算结果（每个工作表的最后一行行号不确定）复制粘贴到17工作表里，工作表1的粘到B3处，工作表2的粘到B4处，工作表3的粘到B5处，依次类推。但我写的代码不能正常运行，求指导修改。谢谢。


Sub fuzhi()
Dim i%, r%
For i = 1 To 16
With Sheets(i)
r = .Range("a65536").End(xlUp).Row
.Range(C & r & ":" & h & r).copy
End With
Sheets(17).Range("B" & i + 2).Select
Sheets(17).Range("B" & i + 2).Paste
Next
End Sub

fzxba

小草看日出

fzxba 发表于 2023-2-10 20:47

经验证，正确，非常感谢帮助。