时间戳

首页 > 解决方案 > 复制粘贴操作导致#VALUE！错误

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

问题描述

我正在尝试将三张纸合并到一张主纸中，它工作正常，但是我的两张纸包含公式，如果直接粘贴它会给我#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

标签： excelvba

解决方案

使用PasteSpecial xlPasteValues代替Copy Destination:=

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

推荐阅读