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

Question

是否有 VBA 脚本可以输出 Excel 中选定范围内包含 < 6（或 <= 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