我这学习了一段统计行内单元格字符数实现不了逐行统计

Chun26096734

     我这学习了一段统计行内单元格字符数的代码，想要进行逐行统计，我实现不了，请高手指正。

山菊花

Sub TestSub()
    Dim maxcd, cd, i
    For y = 1 To 3
        arr = Range(Cells(y, 3), Cells(y, 8))
        maxcd = 0
        For i = LBound(arr, 2) To UBound(arr, 2)
            cd = Len(arr(1, i))
            maxcd = IIf(cd > maxcd, cd, maxcd)
        Next i
        Range("B" & y) = maxcd
    Next y
End Sub

过客fppt

这些分别是代表什么？

gwjkkkkk

给下公式吧。。。

gwjkkkkk

B1=

1. =MAX(LEN(C1:H1))

复制代码

数组三键

ykcbf1100

看了一下，感觉还是重写比较快一点。

ykcbf1100

代码供参考。。。

1. Sub ykcbf()  '//2024.2.5
   
2.     r = Me.Cells(Rows.Count, 3).End(3).Row
   
3.     arr = Me.Range("b1:h" & r)
   
4.     For i = 1 To UBound(arr)
   
5.         Sum = 0
   
6.         For j = 2 To UBound(arr, 2)
   
7.             Sum = Sum + Len(arr(i, j))
   
8.         Next
   
9.         arr(i, 1) = Sum
   
10.     Next
    
11.     Me.Range("b1:h" & r) = arr
    
12. End Sub
    
13. 
    

复制代码

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, br, i&, j&, iMax&
   
    Application.ScreenUpdating = False
   
    ar = Range("C1", Cells(Rows.Count, "H").End(xlUp))
    ReDim br(1 To UBound(ar), 0)
    For i = 1 To UBound(ar)
        iMax = 0
        For j = 1 To UBound(ar, 2)
            If Len(ar(i, j)) > iMax Then iMax = Len(ar(i, j))
        Next j
        br(i, 0) = iMax
    Next i
   
    [B1].Resize(UBound(br)) = br
    Application.ScreenUpdating = True
    Beep
End Sub

Chun26096734

山菊花 发表于 2024-2-5 17:53
Sub TestSub()
    Dim maxcd, cd, i
    For y = 1 To 3

明白了，maxcd没清0！谢谢。

Chun26096734

gwjkkkkk 发表于 2024-2-5 18:22
Option Explicit
Sub TEST2()
    Dim ar, br, i&, j&, iMax&

谢谢，我得出的数据还有其他用途，这是字典吧，再次应用取出数据对我有点难，对字典应用更不熟悉。