将Excel数据复制到新工作表错误1004

我试图从单元格中复制某些信息到另一个电子表格。 我有一个For循环遍历行。 当我尝试将单元格复制到新的电子表格中时，程序出错。 我应该使用范围？ 我需要在单元格之前说出工作表吗？

这只是代码的一个示例：

Set myOtherSheet = ThisWorkbook.Sheets("Sheet2") For Each WkSht In ThisWorkbook.Worksheets If WkSht.Name = "Sheet1" Then j = 0 For r = 6 To 1000 myOtherSheet.Cells(j, 1).Value = WkSht.Cells(r, 2) myOtherSheet.Cells(j, 2).Value = Match 

有我得到的错误是1004对象定义的错误

Answer 1

可能是由j = 0引起的..没有行0 ..至less应该是..

 j = 1