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

Question

我想在 Excel 上自动执行一项简单的任务，但我不知道该怎么做。（我试过宏记录器，但它没有帮助......）

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

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

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

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

标签： excelvba

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