在各个单元格中数数

wowo000

晚上好！各位老师。打搅一下，麻烦帮斧正附件里错误（俺要求出第三列各个单元格里的单号之个数），多谢！！！

准提部林

用公式可以嗎?
除了逗號, "DK"也可當準則???

wowo000

准提部林 发表于 2023-4-14 18:32
用公式可以嗎?
除了逗號, "DK"也可當準則???

尊敬的准提部林老师：辛苦您赐教代码，谢谢！

准提部林

SPLIT 後的元素, 要加TRIM處理, 不等于空字符才累加一!!!

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     Dim reg As New RegExp
   
5.     With reg
   
6.         .Global = False
   
7.         .Pattern = ",+$"
   
8.     End With
   
9.     With Worksheets("数据")
   
10.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
11.         .Range("d2:d" & r).ClearContents
    
12.         arr = .Range("a2:e" & r)
    
13.         For i = 1 To UBound(arr)
    
14.             If Len(arr(i, 3)) <> 0 Then
    
15.                 arr(i, 3) = reg.Replace(arr(i, 3), Empty)
    
16.                 xm = Split(arr(i, 3), ",")
    
17.                 arr(i, 4) = UBound(xm) + 1
    
18.             End If
    
19.         Next
    
20.         .Range("a2:e" & r) = arr
    
21.     End With
    
22. End Sub
    

复制代码

wowo000

准提部林 发表于 2023-4-14 18:41
SPLIT 後的元素, 要加TRIM處理, 不等于空字符才累加一!!!

尊敬的准提部林老师：俺刚刚试了，好像不行，因为有些单元格最后有英文逗号，有些冇。还是辛苦您赐教代码，谢谢！

chxw68

简单问题。

准提部林

wowo000 发表于 2023-4-14 18:39
尊敬的准提部林老师：辛苦您赐教代码，谢谢！

沒幾個字//看圖

gwjkkkkk

请参考。。。

wowo000

chxw68 发表于 2023-4-14 18:45
简单问题。

谢谢您，尊敬的chxw68老师！谢谢！！！