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

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

标签： excelvba

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