ExcelVBA怎么获得最大字符长度

如果把单个中文字符的长度算做2，单个英文字符和数字字符的长度算做1
怎么样能快速找到一列中字符总长最大的单元格？
一列可能有上万行，有没有快速有效的方法

试试用
MsgBox Application.WorksheetFunction. 来调用Excel函数
MsgBox Application.WorksheetFunction.{match(max(lenb(A1:100),lenb(A1:100),0)}

sub macro1() dim xrng as range, firstrng as range if left(range("a1"), 3) = "d1[" then set firstrng = range("a1") else set firstrng = cells.find("d1[") end if set xrng = cells.find("d1[", firstrng) if xrng is nothing then msgbox "没有了" else msgbox xrng.row end if end sub