我的程序在此行发生错误，并显示“类型不匹配”错误。我正在尝试将一系列单元格复制到新的工作表上。我检查了旧范围和新范围的尺寸，它们是相同的，所以这不是问题。
CSht.Range(CSht.Cells(2, 1), CSht.Cells(LstRow2, LstCol2)).Copy Destination:=Sheets(WS_New).Range(WS_New.Cells(1, 1), WS_New.Cells(LstRow2 - 1, LstCol2))
尝试一下，
With csht
.Range(.Cells(2, 1), .Cells(LstRow2, LstCol2)).Copy _
Destination:=WS_New.Range(WS_New.Cells(1, 1), WS_New.Cells(LstRow2 - 1, LstCol2))
End With
在目的地，您同时拥有Sheets(WS_New).Range和WS_New.Cells。它是一个或另一个。无论WS_New是工作表作为一个字符串或工作表作为对象，而不是方法混搭的名称。
顺便说一句，您实际上只需要左上角的单元格即可粘贴。那本来就很容易的，
With csht
.Range(.Cells(2, 1), .Cells(LstRow2, LstCol2)).Copy _
Destination:=WS_New.Cells(1, 1)
End With
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句