VBA最大值检查列中单元格的长度

我试图写一个VBA代码来检查一定范围内的所有单元格的长度是否保持在25个字符以下。

如果任何单元格将有超过25个字符，则需要popup单元格名称为msgbox。

例如范围= A1：A10

如果单元格A3有27个字符，msgbox需要popup“单元格A3”

你们能帮助我吗？

Answer 1

这实际上是你要求的。 这是一个非常简单的循环。 但是，它会在大量数据集上困扰你的屏幕，而且数据集的数量超过了25

 Sub TestCellLengths() Dim c As Range For Each c In Range("A1:A10") If Len(c) > 25 Then MsgBox "Cell " & c.Address(RowAbsolute:=False, ColumnAbsolute:=False) Next c End Sub 

我会build议，而不是只有一个MsgBox显示

 Sub TestCellLengths() Dim c As Range Dim Msg As String For Each c In Range("A1:A10") If Len(c) > 25 Then Msg = Msg & vbTab & c.Address(RowAbsolute:=False, ColumnAbsolute:=False) & vbNewLine Next c If Len(Msg) > 0 Then MsgBox "Cells:" & vbNewLine & Msg End Sub