countif在本工作表计算正常，但跨文件后不能使用，麻烦哪位大神告知原因并修改，谢...

wf888888

countif在本工作表计算正常，跨文件后不能使用，但match跨文件能使用，麻烦哪位大神告知原因并修改程序，谢谢！！！

ykcbf1100

参与一下。。。

1. Sub ykcbf() '//2024.1.18
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Set sh = ThisWorkbook.Sheets("Sheet1")
   
5.     st = sh.[b1]
   
6.     arr = sh.UsedRange
   
7.     For i = 1 To UBound(arr)
   
8.         s = arr(i, 1)
   
9.         d(s) = d(s) + 1
   
10.     Next
    
11.     sh.[c2] = d(st)
    
12.     d.RemoveAll
    
13.     p = ThisWorkbook.Path
    
14.     f = p & "\统计countif.xlsx"
    
15.     Set wb = Workbooks.Open(f, 0)
    
16.     With wb.Sheets(1)
    
17.         arr = .UsedRange
    
18.         wb.Close False
    
19.     End With
    
20.     For i = 1 To UBound(arr)
    
21.         s = arr(i, 1)
    
22.         d(s) = d(s) + 1
    
23.     Next
    
24.     sh.[d2] = d(st)
    
25.     Set d = Nothing
    
26.     Application.ScreenUpdating = True
    
27.     MsgBox "OK！"
    
28. End Sub
    
29. 
    

复制代码

ykcbf1100

楼主的代码应该是AI写的，我新写了一个，供参考。。。

qline302

i = xlApp.WorksheetFunction.CountIf(sheet.Range("a1:h100"), sheet.Range("b" & 1)) '夸文件

因跨文件被你定义成new application了，所以函数也要从xlApp里读取

wf888888

ykcbf1100 发表于 2024-1-18 18:36
参与一下。。。

谢谢老师，其实后来我用到了counta函数统计数组即可得到想要的结果