字数统计问题

喝酒的毛毛虫

我想统计C列每一行文字的字数，并且以[X字]的形式显示在D列，如何实现？，具体看附件，谢谢。 字数统计问题.rar (14.93 KB, 下载次数: 10)

2023-2-7 14:35 上传

点击文件名下载附件

陆离Lowry

len？你这计不计标点的？反正你的D列结果有的计标点，有的没计，我也是没看懂

gwjkkkkk

标点符号算不算。。。

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim regEx As Object, Matches As Object, ar, i&
   
    ar = Range("C1", Cells(Rows.Count, "C").End(3))
    Set regEx = CreateObject("Vbscript.RegExp")
       With regEx
          .Global = True
          .Pattern = "[\u4e00-\u9fa5]{1}"
          For i = 1 To UBound(ar)
             Set Matches = regEx.Execute(ar(i, 1))
             ar(i, 1) = ar(i, 1) & "[" & Matches.Count & "字]"
          Next i
       End With
      
    [D1].Resize(UBound(ar)) = ar
    Set regEx = Nothing
    Beep
End Sub

gwjkkkkk

仅统计中文字符数，请参考。。。

陆离Lowry

为什么有的算标点有的不算标点？

喝酒的毛毛虫

陆离Lowry 发表于 2023-2-7 14:39
len？你这计不计标点的？反正你的D列结果有的计标点，有的没计，我也是没看懂

中文字符就行

喝酒的毛毛虫

陆离Lowry 发表于 2023-2-7 15:01
为什么有的算标点有的不算标点？

举个例子，不太严谨，计算中文字符就行

陆离Lowry

demonimissyou

Sub 按钮2_Click()

Dim i, j, k, arr, brr, reg
Set reg = CreateObject("VBScript.regexp")
reg.Pattern = "[^\，\。\、\？]"
reg.Global = True
i = [C65536].End(xlUp).Row
arr = Range("C1:C" & i)
For j = 1 To i
Set k = reg.Execute(arr(j, 1))
Range("d" & j) = arr(j, 1) & "[" & k.Count & "字" & "]"
Next

End Sub