Question

我尝试编写VBA代码来检查某个范围内所有单元格的长度是否仍然低于25个字符。

如果任何单元格的字符数超过25个，则需要弹出一个带有单元名称的msgbox ..

例如Range = A1：A10

如果单元格A3有27个字符，则需要弹出一个msgbox，说明“Cell 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

我建议只展示一个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

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

1 个答案: