返回一行中每个单元格的字符数并取最大值

Chun26096734

  Len(Range("C" & X).Value)中类似代码可以返回某个单元格的字符数，怎样编写一段简捷的代码返回一行20来个单元格中字符数最多单元格的字符数。如附件中，在C1至H1都有数据，在B5单元格返回其中数据最长的单元格的字符数。请高手指点，给一段代码，谢谢。

cjc209

=MAX(LEN(C1:H1)) 函数法 非常简单

Chun26096734

cjc209 发表于 2024-2-5 15:12
=MAX(LEN(C1:H1)) 函数法 非常简单

谢谢，我的值想要运用到其他代码中，所以不知道您这方法可以在VBA中使用不。

cjc209

Sub TestSub()
    Dim maxcd, cd, i
    arr = Range("c1:h1")
    For i = LBound(arr) To UBound(arr, 2)
        cd = Len(arr(1, i))
        maxcd = IIf(cd > maxcd, cd, maxcd)
    Next
End Sub  这种方式就可以带入其他计算

cjc209

利用循环比较           取得最大值

准提部林

'取得同行最大字元數..By.准提部林
Sub Test_A1()
For x = 1 To 9
    Cells(x, "b") = Evaluate("Max(Len(C" & x & ":H" & x & "))")
Next x
End Sub

准提部林

'取得同行最大字元數..By.准提部林
Sub Test_A1()
For x = 1 To 9
    TT$ = Replace("=MAX(LEN(C1:H1))", 1, x)
    Cells(x, "b") = Evaluate(TT)
Next x
End Sub

這样更直覺~~

Chun26096734

cjc209 发表于 2024-2-5 15:31
Sub TestSub()
    Dim maxcd, cd, i
    arr = Range("c1:h1")

  老兄，麻烦帮我看下，我这咱不能逐行统计呢。

Chun26096734

准提部林 发表于 2024-2-5 15:42
'取得同行最大字元數..By.准提部林
Sub Test_A1()
For x = 1 To 9

谢谢，看来我没表达清楚，我要逐行统计，所以您这公式好像不得行。