Question

我有一个宏检查任何空白单元格的范围，然后运行第二个宏。目前，如果找到空白单元格，用户会收到一条消息，警告他们有空白单元格，并且宏结束。

我希望能够在结束宏之前选择空白单元格，以便用户知道在哪里找到它。

Dim e As Range
Set e = Range("A2", Range("A1000").End(xlUp))

For Each Cell In e
    If IsEmpty(Cell) Then
        ActiveCell.Select
        MsgBox ("Please remove empty row")
        Cancel = True
        Application.StatusBar = vbNullString
        Exit Sub
    End If
Next

是否有选择器将空单元格保持为活动状态？

Answer 1

将ActiveCell.Select替换为Cell.Select。

Answer 2

试试这个......

Sub test()
Dim e As Range
Set e = Range("A2", Range("A1000").End(xlUp))

For Each Cell In e
    If IsEmpty(Cell) Then
        Cell.Select
        MsgBox ("Please remove empty row")

        Exit Sub
    End If
Next


End Sub

Excel VBA For Break中的每个选择单元格

2 个答案: