请教：寻找一列单元格字符数最大值？

czr0373

=MAX(LEN(B:B))数组公式
在VBA中怎么实现？？

小花鹿

读入数组，循环，一个个的比较呗                                                                           

heike2004

Sub test()
Dim r As Integer, i As Integer, k As Byte
r = [a65536].End(xlUp).Row
Range("b1:b" & r).ClearContents
For i = 1 To r
Cells(i, 2) = Len(Cells(i, 1))
Next i
k = Application.Max(Range("b1:b" & r))
[b1] = k
Range("b2:b" & r).ClearContents
End Sub

czr0373

heike2004 发表于 2018-8-11 21:59
Sub test()
Dim r As Integer, i As Integer, k As Byte
r = [a65536].End(xlUp).Row

感觉得有点复杂了，能不改变表内数据的情况下求出吗？

czr0373

heike2004 发表于 2018-8-11 21:59
Sub test()
Dim r As Integer, i As Integer, k As Byte
r = [a65536].End(xlUp).Row

假设用一个变量来表示每一列单元格之字符最长的值m，共有n列
该如何表达?

heike2004

czr0373 发表于 2018-8-11 22:06
感觉得有点复杂了，能不改变表内数据的情况下求出吗？

直接输入数组公式
Sub test()
[b1].FormulaArray = "=max(len(a1:a9999))"
End Su