使用 VBA 在 Excel 中自动创建系列

Question

我想在 Excel 上自动化一个简单的任务，但我不知道如何去做。 （我尝试了宏记录器，但没有帮助...）

假设我有一个固定的空间 A1:T40 这个空间中的所有单元格都是空白或包含数字 0。

我想选择所有零（=非空单元格）并将它们添加到名为“零”的系列中。

如何使用宏自动执行此步骤？

手动，我会使用 Ctrl+G > 特殊 > 常量 > OK 来选择这些单元格，单击公式 > 定义名称 > 输入名称“零”并点击确定。

Answer 1

Sub DefineNameForZeroes()
    ActiveWorkbook.Names.Add _
        Name:="Zeroes", _
        RefersTo:=ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 23)
    ActiveWorkbook.Names("Zeroes").Comment = "All the zeroes on this sheet"
End Sub