VBA写查找所有工作表内容并计数内容为变量

以下是一个使用VBA编写的示例代码，用于查找所有工作表中包含指定变量的单元格，并计数出现次数。

Sub CountVariable()
    Dim searchVariable As String
    Dim count As Integer
    Dim ws As Worksheet
    Dim cell As Range
    
    ' 设置要查找的变量
    searchVariable = "变量"
    count = 0
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 遍历当前工作表的所有单元格
        For Each cell In ws.UsedRange
            ' 判断单元格的值是否包含指定变量
            If InStr(1, cell.Value, searchVariable, vbTextCompare) > 0 Then
                ' 如果包含指定变量，则计数加一
                count = count + 1
            End If
        Next cell
    Next ws
    
    ' 显示计数结果
    MsgBox "变量 """ & searchVariable & """ 在所有工作表中出现了 " & count & " 次。"
End Sub

你需要将代码粘贴到VBA编辑器中，然后执行CountVariable子过程。在代码中，你可以修改searchVariable变量的值以适应你需要查找的变量。代码将遍历所有工作表的所有单元格，并计算包含指定变量的单元格的数量。最后，将弹出一个消息框显示计数结果