Question

EXCEL如何用VBA统计符合条件的数字的个数，重复的不计算。急求谢谢！

首先定位到A列最后一行有“提取”这两个字的这一行，然后统计有这两个字的下一行的数字。重复的不计算，统计结果如右边黄色框内。如图要求那样。
就是要解决三个问题：1、定位到A列有字符的倒数第四行，关键字：A列有字符的倒数第四行。然后倒数第四行有“提取”二字，符合统计要求。数据不会只有三行，会有很多行。然后倒数第四行如何没有提取二字的话，则不处理。2、符合统计要求的统计它的下一行内容。只统计【】里的数字。3、统计的数字去重，只要求一次。谢谢了。急求！

这是我问的第四条了，到现在还没有一个能用的答案。。。我也很崩溃啊。。。





Answer 1

我的回答 被百度 坑了

=COUNTIF(OFFSET($A$1,MATCH("座",A:A)-4,,),"*提取*") *COUNTIF(OFFSET($A$1,MATCH("座",A:A)-3,,),"*【*"&B7&"*】*")-COUNTIF(OFFSET($A$1,MATCH("座",A:A)-4,,),"*提取*") *COUNTIF(OFFSET($A$1,MATCH("座",A:A)-3,,),"*】*"&B7&"*【*")

追问

我试过你这条，没有用，不准确

追答

一般 写 个要收费的

Sub cal()
Set reg = CreateObject("vbscript.regexp")
Set dic = CreateObject("scripting.dictionary")
r = [a65536].End(xlUp).Row
If Cells(r - 3, "A") Like "*提取*" Then
  With reg
    .Pattern = "\【\d+\】"
    .Global = True
   If .test(Cells(r - 2, "a")) = True Then
     Set brr = .Execute(Cells(r - 2, "a").Text)
        For Each b In brr
         For n = 1 To Len(b)
          dic(Mid(b, n, 1)) = 1
        Next
      Next
   End If
  End With
End If
  Dim arr(1 To 10, 1 To 2)
   For i = 1 To 10
    arr(i, 1) = CStr(i - 1)
    If dic.exists(arr(i, 1)) Then arr(i, 2) = dic(arr(i, 1))
   Next
  [c4].Resize(10, 2) = arr
End Sub

追问

你可以把这个答案复制到我所有这个问题的回答里，我全部选择你的答案，

追答

木必要 ，另外个 答案 被 百度给 删了， 我答百度 更多是为了钱，不是为了财富值

Answer 2

倒数第四行，如果数据只有三行，怎么办？倒数第四行没有“提取”二字，如何处理？

追问

数据不会只有三行，会有很多行。然后倒数第四行如何没有提取二字的话，则不处理。

追答

你的数据中间是不是有空行？

追问

对的，是有一行空的

追答

嗯，那就对了，你发个模拟文件给我，数据不必真实，类型要全，要而留要吧要吧撒酒酒

追问

就是类似我图片上的那样，类型全在上面。其实就是挺简单的数据类型，能用公式做也很好

追答

才发现楼下已经给出代码了，那我就不费力气 了。