Excel VBA 宏 : Locating first empty cell in a column and automatically filling it

Question

我的电子表格中有两列:列 (A) 和列 (B)。

列 (A) 包含从查询中提取的名称(例如 Brian、Bob、Bill 等)，列 (B) 包含三种状态之一(已分配、正在进行或待处理)。

但是，此查询有时会提取一些状态为“已分配”但没有名称的行项目，因此 (A) 列中代表名称的相应单元格为空。所以我手动用“未知”填充这些空单元格。

我想要做的是创建一个宏，查找 (A) 列中的每个空单元格，如果右侧的单元格包含单词“Assinged”，则填写单词“Unknown”。

所以条件是:

1. (A) 列中的空白单元格

2. 右侧对应的单元格(B 列)包含单词“assinged”

这是我的代码:

Private Sub CommandButton2_Click()

    For Each cell In Columns("A")
        If ActiveCell.Value = Empty And ActiveCell.Offset(0, 1).Value = "Assigned" Then ActiveCell.Value = "Unknown"
    Next cell

End Sub   

Answer 1

此处无需循环，利用 Excel 内置方法，执行速度更快。

Private Sub CommandButton2_Click()

    Application.ScreenUpdating = False

    With ActiveSheet.UsedRange
        .AutoFilter Field:=1, Criteria1:=""
        .AutoFilter Field:=2, Criteria1:="Assigned"

        If WorksheetFunction.CountBlank(.Columns(1)) > 0 Then
            If .Columns(1).SpecialCells(xlCellTypeVisible).Count > 1 Then
                .Columns(1).SpecialCells(xlCellTypeBlanks).Value = "Unknown"
            End If
        End If

        .AutoFilter
    End With

    Application.ScreenUpdating = True

End Sub