計算功能范圍內的特殊字符

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