[已解决]统计a1-q10000区域中出现14-16次的值

morrer

统计a1-q10000区域中出现14-16次的值并在S列中显示Sub sql()    Dim d, k, t, arr, cel, r@, arr1()Set d = CreateObject("Scripting.Dictionary")arr = [a1:q10000]For Each cel In arr    If cel <> "" Then        d(cel) = d(cel) + 1    End IfNextk = d.Keyst = d.itemsReDim arr1(1 To UBound(k) + 1, 1 To 1)For i = 0 To UBound(k)    If t(i) >= 14 and t(i) <= 16 Then        r = r + 1        arr1(r, 1) = k(i)    End IfNext[s1].Resize(r) = arr1End Sub
报错 13 求解或更好的代码
见附件 筛选出现17次的VBA.zip (455.61 KB, 下载次数: 3)

2013-7-21 22:02 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

上清宫主

2013-7-21 22:27

代码差不多。报错是因为10000行处有一些#N/A，处理了就没报错了

跳转到最佳答案楼层

morrer

在线的高手们 能帮优化下么？

上清宫主

代码差不多。报错是因为10000行处有一些#N/A，处理了就没报错了

morrer

上清宫主 发表于 2013-7-21 22:27
代码差不多。报错是因为10000行处有一些#N/A，处理了就没报错了

非常感谢，值传递 过程中产生了 #N/A 没注意，向您学习