VBA中一个小的细节

今天在尝试使用VBA将不同的列汇总到一个工作簿中时一直报错1004
Range(Cells(1, 1), Cells(j, 2)).Copy Sheets(48).Range(Cells(1, 2 * i - 3), Cells(j, 2 * i - 2))，很久都没找到原因，最终了解到，在跨工作簿使用cells时之前要加上所属工作簿名称，应该改为
With Sheets(i)
.Range(.Cells(1, 1), .Cells(j, 2)).Copy Sheets(48).Range(Sheets(48).Cells(1, 2 * i - 3),_ Sheets(48).Cells(j, 2 * i - 2))
End With

这里是引用 https://blog.csdn.net/sinat_36164818/article/details/81080817