excel - 复制整行(值不是公式)VBA

Question

我需要在多个工作表之间复制行，虽然我设法做到了，但它只复制了公式而不是值。我已经很多年没有使用 VBA 了，只是想不出如何去做。

我现有的代码是:

Workbooks.Open filename:=NewFN
    filename = Mid(NewFN, InStrRev(NewFN, "\") + 1)


        For i = 1 To 14
            Workbooks(filename).Sheets("sheet1").Rows(i).Copy ThisWorkbook.Sheets("BD Raw Data").Rows(insertRow)

            insertRow = insertRow + 1
        Next i

        Workbooks(filename).Close SaveChanges:=False

Answer 1

您需要使用 PasteSpecial使用 XlPasteType.xlPasteValues 枚举而不是 Copy Destination

的方法

例如

Workbooks(filename).Sheets("sheet1").Rows(i).Copy 
ThisWorkbook.Sheets("BD Raw Data").Rows(insertRow).PasteSpecial Operation:=xlPasteValues