vba range cells结合

daqinqin

我想把一个表格的区域移到新表格里，一点点调试就是不能成功，不知道错在哪，麻烦大佬们指点下
成功 Wb.Worksheets(1).Range("a1").Copy ThisWorkbook.Worksheets("信息库").Cells(1, 1)
失败 Wb.Worksheets(1).Range(Cells(1, 1), Cells(4, 4)).Copy ThisWorkbook.Worksheets("信息库").Cells(1, 1)

大灰狼1976

Wb.Worksheets(1).Range(Cells(1, 1), Cells(4, 4))
括号内的cells未指定父级对象。

liulang0808

Wb.Worksheets(1).Range(Wb.Worksheets(1).Cells(1, 1), Wb.Worksheets(1).Cells(4, 4)).Copy ThisWorkbook.Worksheets("信息库").Cells(1, 1)

Wb.Worksheets(1).Range("a1:d4").Copy ThisWorkbook.Worksheets("信息库").Cells(1, 1)

ykcbf1100

容易犯的错误，用以下方式可以避免此类错误：
with Wb.Worksheets(1)
    .Range(.Cells(1, 1), .Cells(4, 4)).Copy ThisWorkbook.Worksheets("信息库").Cells(1, 1)
end with