Question

我正试图将三张表合并为一个主表，但是工作正常，但是我的两张表包含公式，如果直接粘贴，它会给我#VALUE!，这显然是因为公式包含列。

所以我要把所有的三张纸都特殊地粘贴到一张主纸上，这样就不会在主纸上给我#VALUE!。

这是我正在使用的代码：

Sub Combine3Sheet()

    Dim Ary As Variant
    Dim Ws As Worksheet

    Ary = Array("Sheet1", “Sheet2", "Sheet3")
    Sheets("Master").Name = "Master"

    For Each Ws In Worksheets(Ary)
        Ws.UsedRange.Offset(1).Copy Sheets("Master") _
        .Range("A" & Rows.Count).End(xlUp).Offset(1)

        Application.DisplayAlerts = False
        Application.DisplayAlerts = True

        Call Formatting

    Next Ws

End Sub

Answer 1

使用PasteSpecial xlPasteValues代替Copy Destination:=

ws.UsedRange.Offset(1).Copy
Sheets("Master").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

复制粘贴操作导致#VALUE！错误

1 个答案: