Excel 求助有关Excel中Find在整个工作簿中查找

Total

以下是改写后的内容：Sub findTotalArea()Dim Arr, i, Sht As Worksheet, x, m, r1, fsad$Sheet1ActivateArr = [a1].CurrentRegionFor i = 2 To UBound(Arr)x = Arr(i, 1) & " - " & Arr(i, 2)m = 0For Each Sht In WorksheetsIf Sht.Name "总表" ThenSet r1 = Sht.Cells.Find(x, , , 1)If Not r1 Is Nothing Thenfsad = r1.Addressm = m + Sht.Range(fsad).MergeArea.CountDoSet r1 = Sht.Cells.FindNext(r1)If r1.Address fsad Then m = m + Sht.Range(r1.Address).MergeArea.Count End If Loop While Not r1 Is Nothing And r1.Address fsadEnd IfNextCells(i, 3) = mNextEnd Sub