这段代码哪里错了

[晃仙]

sin.Range(Cells(i, 4), Cells(j, 4)).Copy ThisWorkbook.Sheets("35").Range("C3")
sin是另一个工作簿一个工作表，想把sin的range范围复制到当前工作簿的一个工作表，总是不成功 不是说应用程序错误，就是属性值错误 完整的在下面 Option Explicit Sub demo() Debug.Print Range("A1").End(xlDown).Row Dim ws As Workbook, sin As Worksheet, i As Integer, j As Integer, k As Integer, gol As Worksheet k = 1 Set ws = Workbooks.Open(Filename:="E:\案例vba\问题\数据.xls") Set gol = ThisWorkbook.Worksheets("35") For Each sin In ws.Sheets i = sin.Range("D1").End(xlDown).Row j = sin.Range("D65536").End(xlUp).Row sin.Range(Cells(i, 4), Cells(j, 4)).Copy ThisWorkbook.Sheets("35").Range("C3") k = k + 1 Next sin End Sub

[VB业余爱好者]

把“sin.Range(Cells(i, 4), Cells(j, 4)).Copy ThisWorkbook.Sheets("35").Range("C3")”这句修改一下
修改为
sin.Range(sin.Cells(i, 4), sin.Cells(j, 4)).Copy ThisWorkbook.Sheets("35").Range("C3")

应该就过了