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