[已解决]EXCEL高手用VBA统计A列字符个数

dsmch

1. Sub Macro1()
   
2. arr = Range("a1").CurrentRegion
   
3. For i = 1 To UBound(arr)
   
4.     x = Split(arr(i, 1), ",")
   
5.     s = s + 2 * UBound(x) + 1
   
6. Next
   
7. MsgBox s
   
8. End Sub

复制代码