(VBA) Countif无法查看其他工作表并将答案返回到原始工作表

Sub CountifInOtherSheet()
    Dim ws As Worksheet
    Dim countResult As Long
    Dim targetSheet As Worksheet
    Dim targetRange As Range
    Dim criteria As String
    
    ' 设置目标工作表和范围
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
    Set targetRange = targetSheet.Range("A1:A10") ' 设置目标范围
    
    ' 设置Countif的条件
    criteria = "条件"
    
    ' 遍历目标范围并进行计数
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> targetSheet.Name Then ' 排除目标工作表
            countResult = countResult + Application.WorksheetFunction.CountIf(ws.Range("A1:A10"), criteria)
        End If
    Next ws
    
    ' 将结果返回到原始工作表
    ThisWorkbook.Worksheets("原始工作表名称").Range("B1").Value = countResult
End Sub