Question

我有以下代码，但它仅在活动工作表上起作用，而不是在所有工作表之间循环。我不确定为什么它没有消失，因为我以前使用过下面的循环语法。

Sub Paste_Values()

Application.ScreenUpdating = False



Dim WS As Worksheet



For Each WS In Worksheets
      Range("A1:V104").Select

    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Next

End Sub

Answer 1

避免选择和复制/粘贴：

Sub Paste_Values()
    Dim WS As Worksheet
    Application.ScreenUpdating = False

    For Each WS In Worksheets
        With WS.Range("A1:V104")
            .Value = .Value
        End With
    Next

End Sub

Answer 2

尝试用WS.Range("A1:V104").Select代替Range("A1:V104").Select

VBA复制和粘贴工作簿中每个工作表的值

2 个答案: