我来帮你搞定这个问题，你的宏只在单个工作表生效，主要是两个关键细节没处理好，我给你拆解一下：

问题分析 #

1. 范围未绑定到当前工作表
   你定义SrchRng = Range("$A1:$AZ200")时，没有指定所属的工作表，它默认只会指向运行宏时激活的那个工作表。后续循环其他工作表时，代码还是在操作最初的那个表的单元格，自然不会影响其他工作表。

2. InStr不支持通配符
   你用了*Figure*作为查找内容，但InStr是纯子字符串查找函数，不会解析通配符。如果要模糊匹配包含"Figure"的内容，得换用Like运算符，或者直接查找纯字符串。

修正后的完整代码 #

' 将所有工作表中包含"Figure"的单元格设为左对齐
Sub AlignFigureCellsLeft()
    Dim WS As Worksheet
    Dim SrchRng As Range, cel As Range
    
    ' 遍历工作簿里的每一个工作表
    For Each WS In ThisWorkbook.Worksheets
        ' 关键：把查找范围绑定到当前循环的工作表
        Set SrchRng = WS.Range("$A1:$AZ200")
        
        With WS
            ' 遍历当前工作表的指定区域
            For Each cel In SrchRng
                ' 忽略大小写匹配包含"Figure"的内容，如需区分大小写可去掉vbTextCompare
                If InStr(1, cel.Value, "Figure", vbTextCompare) > 0 Then
                    cel.HorizontalAlignment = xlHAlignLeft
                End If
                
                ' 如果你需要通配符匹配（比如匹配"Figure 1"、"Figure_XX"这类），可以换成下面的写法：
                ' If UCase(cel.Value) Like "*FIGURE*" Then
                '     cel.HorizontalAlignment = xlHAlignLeft
                ' End If
            Next cel
        End With
    Next WS
End Sub

额外说明 #

• 现在每次循环工作表时，SrchRng都会被重新设置为当前WS的指定范围，确保操作的是当前工作表的单元格。
• vbTextCompare参数可以让查找忽略大小写，不管是"figure"、"FIGURE"还是"Figure"都能被匹配到。
• 如果需要更灵活的模糊匹配（比如匹配以Figure开头、结尾，或者包含特定后缀的内容），用Like运算符会更合适，代码里也给出了注释示例。

内容的提问来源于stack exchange，提问作者Angiebio