VBA统计一列中包含某字符的单元格个数

Question

n= Application.CountIf(Range("A1:A3"), Mid(Range("A3"), 1, 4)) 在MID前加"*"&也统计不了，请帮忙修改代码，截图中我需要得到的结果是N=3

Answer 1

直接FOR循环一下好了For I = 1 To 3
    If InStrRev(Range("A" & I), Mid(Range("A3"), 1, 4)) > 0 Then
        n = n + 1
    End If
Next

本回答被提问者和网友采纳

Answer 2

方法一，用instr语句
http://club.excelhome.net/thread-374080-1-1.html
方法二，用find和findnext语句
http://club.excelhome.net/thread-1157231-1-1.html
千万不要用mid，把问题搞复杂了