如何选择列中的空白然后选择这些行

Question

我知道如何查找所选列中的所有空白。但我想更进一步，选择第一步中找到的那一行。

所以：

步骤1 - 查找某列中的所有空白 第2步 - 选择在步骤1中找到的行

这可能吗？

Answer 1

这会检查该列是否包含 ActiveCell

Sub dural()
    Dim r As Range
    Set r = Intersect(ActiveSheet.UsedRange, ActiveCell.EntireColumn)
    r.Cells.SpecialCells(xlCellTypeBlanks).EntireRow.Select
End Sub