在Sheet1和Sheet2之外的每张表上运行一个宏 [英] Run A Macro on Each Sheet Except Sheet1 and Sheet2

问题描述

以下是我想要的宏：

在sheet1和sheet2之外的每个工作表上运行一个宏

Run a macro on every sheet except sheet1 and sheet2

dim rs as worksheet

单位
如果rs.name =Sheet1或Sheet2然后
下一个rs
其他rs.name = rs.range（

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

我有新的VBA，我不断得到一个'下一个没有'错误，不知道如何下一个for循环和if语句。提前谢谢

I've new to VBA and i keep getting a 'next without for' error. not sure how to next the for loop and the if statement. thanks in advance

            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

推荐答案

小混合，尝试：

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

这篇关于在Sheet1和Sheet2之外的每张表上运行一个宏的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！