Excel - 输出少于6个字符的选定列数（VBA）

Question

是否有一个VBA脚本可以输出Excel中选定范围内包含＆lt; 6（或＆lt; = 5）字符（无论它们是字节顺序标记还是BOM）？输出可以是弹出窗口，存储在所选范围内等。

Answer 1

如果您不想使用vba，可以使用公式：

使用愤怒A1的例子：A14

=SUM(IF(LEN(A1:A14)<6,1,0))

这必须作为数组函数输入（使用 CTRL + SHIFT + ENTER ） - 你会知道它是否输入正确地说，因为excel会将{}放在公式

周围

---

示例数据：

---

评估数组公式：

Answer 2

考虑：

Sub dural()
    Dim r As Range
    Dim Kount As Long
    Kount = 0
    For Each r In Selection
        v = r.Text
        If Len(v) < 6 And Not IsEmpty(r) Then
            Kount = Kount + 1
        End If
    Next
    MsgBox Kount
End Sub