vba - Excel - 6 文字未満の選択された列の数を出力する (VBA)

Question

Excel で選択した範囲内の 6 文字未満 (または 5 文字以下) のセルの数を出力できる VBA スクリプトはありますか? 出力は、ポップアップに表示したり、選択した範囲に保存したりできます。

Answer 1

vba を使用したくない場合は、数式を使用できます。

レイジ A1:A14 を使用した例

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

これは配列関数として入力する必要があります ( CTRL+ SHIFT+を使用) - Excel が数式ENTERを配置するため、正しく入力されているかどうかがわかります。{}

---

サンプルデータ:

---

配列数式の評価:

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