代码之家 › 专栏 › 技术社区 › Sevpoint

Excel:显示空白单元格地址

vba excel-vba excel

Sevpoint · 技术社区 · 7 年前

我正在尝试在两列(e和f)中自动搜索空白单元格。我的目标是在一个消息框中显示这些空白单元格的地址。如果没有空白单元格,则会出现一个消息框,提示在两列中找不到空白单元格。到目前为止,我已经尝试了代码,但这只适用于第5(e)列,并且没有验证如果没有空白单元格,它将提示一条消息。我不知道如何才能继续实现我的目标。

下面是我目前尝试的代码:

Sub test()

Dim i As Long, lastrow As Long
Dim rng As Range
Dim MsgStr As String
Dim c As Range


lastrow = Cells(Rows.Count, "E").End(xlUp).Row


For i = 2 To lastrow

If Cells(i, 5) = "" Then

        If MsgStr = "" Then

            MsgStr = Cells(i, 5).Address(False, False)

        Else

            MsgStr = MsgStr & "," & Cells(i, 5).Address(False, False)

        End If
End If

Next i

MsgBox MsgStr & " cells are empty"

End Sub

1 回复 | 直到 6 年前

user4039065 7 年前

尝试 SpecialCells(xlCellTypeBlanks) .

Sub test()
    Dim lastrow As Long, rng As Range
    Dim MsgStr As String

    lastrow = Cells(Rows.Count, "E").End(xlUp).Row
    on error resume next
    set rng = range(cells(2, "E"), cells(lastrow, "F")).specialcells(xlcelltypeblanks)
    on error goto 0

    if not rng is nothing then
        msgbox rng.address(0,0) & " are blank"
    else
        msgbox "no blank cells"
    end if

End Sub

推荐文章

CPS · 当变量值为空时,在另一个变量中赋值

2 年前

xris23 · 通过VBA选择命名范围,让用户直接编辑单元格

2 年前

Stormer · 从Access格式化Excel单元格无效

2 年前

j johns · 通过VBA将ascii art添加到命令提示符

2 年前

BinaryCat · Excel-将单元格转换为具有成对数据的行

3 年前

Waleed · 以下拆分函数的(0)表示什么?

3 年前

judo_ürgens · vlookup和sumif(每个项目的总利润)

3 年前

Louay Alkhawam · 在任意多个列中计算包含子字符串*[橙色]*的行,而不重复计算?

3 年前

smrmodel78 · VBA创建表格未选择正确的范围

3 年前

HouÅ¡tí · 如何检测鼠标释放

3 年前