EXCEL VBA计算个数

D6:I200为范围2.J列为结果4.范围内空行不统计

Sub s()
    For i = 6 To 200
        c = 0
        f = False
        For j = 4 To 9
            If Cells(i, j) <> "" Then
                f = True
                For k = 1 To Len(Cells(i, j))
                    t = Mid(Cells(i, j), k, 1)
                    If Asc(t) > 0 Then
                        c = c + 1
                    Else
                        Cells(i, j).Characters(k, 1).Font.Color = vbRed
                    End If
                Next
            End If
        Next
        If f Then Cells(i, 10) = c
    Next
End Sub

Sub test() Dim n n= Application.Counta(Range("D6:I200")) Msgbox n End Sub

窗体不全，假设我现在要查找 符合任一机器或程序或时间的 数目，结果应该在哪里得到输出？窗体上表现不出来，现有的三个框我觉得应该都是条件输入框。 第二，机器编号、程序、时间这么长，输入想要完全匹配估计很难，要模糊匹配的话，得到结果又不准确. 综上所述，我觉得应该在窗体上增加两个控件，一个用于输出统计结果，可用textbox 第二个，可以用listbox 或listview， 具体逻辑是这样 现在己有的三个textbox作为输入条件的写入框，分别在每个textbox 的keyup 或keydown事件内增加代码，代码的作用是查找模糊匹配的结果，并将结果添加到listbox内。比如我在机器文本框内输入，v,则listbox内列出所有符合条件的机器代码，以供选择；根据你的要求，可能在添加listbox列表项之前加上一段判断，以提供更精确的匹配结果 然后在listbox双击事件或keypress事情内写段代码，将选中的条目赋值给相应的文本框（可用listbox的tag属性来确定文本框） 最后点击统计项，根据几个条件文本框内的内容在工作表里进行查找，统计条件数量，在textbox里显示，