如何使用循环从列表中提供工作表名称来获取多个工作表的COUNTIF总和

Sub GetCountIfSumFromWorksheets()
    Dim wsList As Worksheet
    Dim wsName As Range
    Dim totalSum As Long
    
    ' 假设工作表列表位于名为"SheetList"的工作表中的A列
    Set wsList = ThisWorkbook.Worksheets("SheetList")
    
    ' 初始化总和变量
    totalSum = 0
    
    ' 遍历工作表列表中的每个工作表名称
    For Each wsName In wsList.Range("A1:A" & wsList.Cells(Rows.Count, 1).End(xlUp).Row)
        ' 获取工作表名称
        Dim sheetName As String
        sheetName = wsName.Value
        
        ' 获取工作表对象
        Dim ws As Worksheet
        Set ws = ThisWorkbook.Worksheets(sheetName)
        
        ' 计算COUNTIF并累加到总和变量
        totalSum = totalSum + Application.WorksheetFunction.CountIf(ws.UsedRange, "条件")
    Next wsName
    
    ' 输出总和变量的值
    MsgBox "多个工作表的COUNTIF总和为：" & totalSum
End Sub