excel - 计算函数范围内的特殊字符

Question

此函数应计算所选范围内的所有特殊隐藏字符。

我有一个错误。 StrIn = C.Text没用。

Function hiddencount(Rng As Range)

Dim C As Range
Dim cnt As Integer
Dim iCh As Integer
Dim StrIn As String
cnt = 0

For Each C In Rng.Cells
    C.Value = StrIn

    If Not C.HasFormula Then
        For iCh = 1 To Len(StrIn)
            If Asc(Mid(StrIn, iCh, 1)) < 32 Then
                cnt = cnt + 1
            End If
        Next iCh
    Else
    End If
Next C

hiddencount = cnt

End Function

Answer 1

总之，改C.Value = StrIn至StrIn = C.Text
你真的不需要这个变量。它只是创建更多代码以供以后阅读。为什么不直接使用 C.Text所以很清楚正在分析什么？此外，如果您不打算对 Else 采取行动声明，你可以删除它。

Function hiddencount(Rng As Range)

Dim C As Range, cnt As Integer, iCh As Integer

For Each C In Rng.Cells
    If Not C.HasFormula Then
        For iCh = 1 To Len(C.Text)
            If Asc(Mid(C.Text, iCh, 1)) < 32 Then cnt = cnt + 1
        Next iCh
    End If
Next C

hiddencount = cnt

End Function