VBA For 循环只改变一张纸

Question

我正在尝试仅更改特定命名工作表的一系列单元格中的值。

我正在编辑的工作簿大约有 95 张，我只想更改带有期间实际信息的工作表(名为 P1W1、P1W2 等，直到 P12W5)。

当我执行以下操作时，它只会更改第一张纸，然后退出宏。

任何帮助深表感谢

    Option Explicit

Public Sub periodclear()

Dim ws As Worksheet
Dim r As Range

On Error Resume Next

Set r = Range("c10:i30")

For Each ws In Worksheets
    If ws.Name Like ("P#W#") Or ws.Name Like ("P##W#") Then

       r.Value = ""

    End If

Next ws

End Sub

Answer 1

尝试这个。您的 r仅根据一张纸定义，因此需要放入循环中。

Public Sub periodclear()

Dim ws As Worksheet

For Each ws In Worksheets
    If ws.Name Like ("P#W#") Or ws.Name Like ("P##W#") Then
        ws.Range("c10:i30").ClearContents
    End If
Next ws

End Sub