计算VBA

Question

我正在寻找一个VBA代码，它可以帮助我计算单元格范围内的字符数。

如果我使用LEN的excel选项，它确实给了我特定单元格中的字符数。

我们是否有任何代码可以为我提供一系列单元格中的字符。

前者; A1 =＆＃34;夜晚＆＃34; ，B1 =＆＃34; Day＆＃34; C1 =＆＃34;中午＆＃34;

结果应为12（5 + 3 + 4）

任何人都可以帮助我吗

Answer 1

你不需要VBA这样做，只需要数组公式
  =SUM(LEN(A1:C1))
输入它，然后按Ctrl-Shift-Enter

Answer 2

您可以创建自定义 UDF ，使用循环计算一个范围内的字符数，类似下面的代码：

Function SumLeninRange(Rng As Range) As Long

Dim C As Range

For Each C In Rng ' loop through all cells in Range
    SumLeninRange = SumLeninRange + Len(C.Value2)
Next C

End Function

并使用下面的Test Sub代码：

Sub Test()

MsgBox "Num of Characters in Range is : " & SumLeninRange(Range("A1:C1"))

End Sub