在除 Sheet1 和 Sheet2 之外的每个工作表上运行宏答案

【问题标题】：Run a macro on each sheet except Sheet1 and Sheet2在除 Sheet1 和 Sheet2 之外的每个工作表上运行宏
【发布时间】：2016-08-02 12:10:18
【问题描述】：

我想在除了 sheet1 和 sheet2 之外的每张工作表上运行一个宏。

    dim rs as worksheet  
for each rs in sheets  
    if rs.name = "Sheet1" or "Sheet2" then  
    next rs  
else rs.name =rs.range("

我得到了错误

没有for的下一个

接下来如何使用 for 循环和 if 语句？

Dim rs As Worksheet
        
For Each rs In Sheets
    If rs.Name = "sheet1" Or "sheet2" Then
Next ws
    Else: rs.Name = rs.Range("N2") 'rename sheet base on vendor name field

    End If
Next rs

【问题讨论】：

您将变量名从 rs 更改为 ws。如果您更改它并在 Else 之后删除冒号，它应该可以工作。

标签： excel vba

【解决方案1】：

小混混，试试看：

Dim rs As Worksheet

For Each rs In ThisWorkbook.Worksheets
   If rs.Name <> "Sheet1" And rs.Name <> "Sheet2" Then
        rs.Name = rs.Range("N2").Value 'rename sheet base on vendor name field
   End If
Next rs

End Sub

【讨论】：