VBA中For Each sht In wb.Sheets

在VBA（Visual Basic for Applications）中，`For Each sht In wb.Sheets` 是一个循环结构，用于遍历指定工作簿 (`wb`) 中的每一个工作表 (`sht`)。下面是如何使用它的一个示例：

Sub IterateThroughSheets()
    Dim wb As Workbook
    Set wb = ThisWorkbook ' 或者使用 ActiveWorkbook 如果你想要当前激活的工作簿
    
    ' 开始 For Each 循环，遍历工作簿中的所有工作表
    For Each sht In wb.Sheets
        Debug.Print "当前处理的工作表名为: " & sht.Name ' 打印工作表名称作为示例操作
        
        ' 这里可以添加更多针对每个工作表的操作，比如检查批注或查找表格
        ' 如下所示，对于批注：
        For Each com In sht.Comments
            ' 对com执行操作...
        Next com
        
        ' 或者查找表格：
        On Error Resume Next ' 忽略错误以便找到第一个匹配
        Set ActiveTable = sht.ListObjects(Sheet1.Cells特定位址) ' 指定要查找的活动单元格范围
        If Not ActiveTable Is Nothing Then
            Debug.Print "活动单元格位于表：" & ActiveTable.Name
        Else
            Debug.Print "活动单元格不在当前工作表的表格中"
        End If
        On Error GoTo 0 ' 关闭错误处理
    Next sht
    
    ' 结束循环
End Sub

这段代码会依次处理 `wb` 工作簿中的每个工作表，并执行相应的操作，如打印工作表名称，检查批注，以及查找包含活动单元格的表格。