遍历所有包含首字母为M的工作表的Excel VBA循环_编程开发

遍历所有包含首字母为M的工作表的Excel VBA循环

创始人

2024-12-04 09:01:01

0次

以下是一个示例代码，用于遍历所有包含首字母为M的工作表的Excel VBA循环：

Sub LoopThroughWorksheets()
    Dim ws As Worksheet
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 检查工作表的名称是否以"M"开头
        If Left(ws.Name, 1) = "M" Then
            ' 在这里写下你想要执行的代码
            ' 例如：将工作表的名称打印到立即窗口
            Debug.Print ws.Name
        End If
    Next ws
End Sub

在这个示例中，我们首先声明了一个Worksheet类型的变量ws，用于表示每个工作表。然后使用For Each循环遍历ThisWorkbook.Worksheets集合中的每个工作表。

在循环体内，我们使用Left函数检查工作表的名称的首字母是否为"M"。如果是，就执行在循环体内的代码块。在这个示例中，我们将工作表的名称打印到立即窗口，你可以将你想要执行的任何代码放在这里。

请注意，这个示例假设你想要在当前工作簿中遍历所有的工作表。如果你想要在其他工作簿中遍历工作表，你需要根据需要修改ThisWorkbook的引用。

上一篇：遍历所有 DOM 元素不起作用

下一篇：遍历所有本地化的数组

遍历所有包含首字母为M的工作表的Excel VBA循环

相关内容

热门资讯