如何粘贴“测试”所在的复制值

Question

oExcel.Worksheets("spring").Columns("A").Copy()
oExcel.Worksheets("spring").Columns("B").Copy()

Dim LastRow As Long

LastRow = oSheet.Range("A4000").End(Excel.XlDirection.xlUp).Row + 1
oSheet.Range("A" & LastRow).Value = "Test"
oSheet.Range("B" & LastRow).Value = "Test"

我试过了：

oSheet.Range("B" & LastRow).Value = oExcel.Worksheets("spring").Columns("B").PasteSpecial()

这不起作用

Answer 1

oSheet.Range("B" & LastRow).PasteSpecial()