Set startRange = ThisWorkbook.Worksheets("Sheet3").Range("a65536").End(xlUp)
Worksheets("Sheet1").Range("B2:B" & lastrowA).Copy startRange1.Offset(1, 2).Value
Worksheets("Sheet2").Range("A2:A" & lastrowA).Copy startRange1.Offset(1, 1)
Application.CutCopyMode = False
Set startRange = ThisWorkbook.Worksheets("Sheet
阅读背景：
仅复制VBA中单元格的值时出错
来源：互联网
分享到：
