Excel VBA 如何替换包含大于零的数字的每个单元格

Question

如何替换某个范围内大于零的数字？

我可以替换给定范围内的一个特定单词或数字:

Sheet1.Columns("N").Replace What:="1", Replacement:="Good", LookAt:=xlWhole, 
  SearchOrder:=xlByRows, MatchCase:=False

现在，如果我想替换所有包含大于零的数字(如 1-1000000)，如果我使用循环语句，这将使宏运行缓慢，该怎么办？

我希望可以有这样的代码:

Sheet1.Columns("N").Replace What:=">0", Replacement:="Good", LookAt:=xlWhole,
  SearchOrder:=xlByRows, MatchCase:=False`

Answer 1

您可以使用过滤器:

Sub tgr()

    On Error Resume Next    'Prevents error if there are no cells with value >0
    With Intersect(Sheet1.UsedRange, Sheet1.Columns("N"))
        .AutoFilter 1, ">0"
        .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Value = "Good"
        .AutoFilter
    End With
    On Error GoTo 0         'Remove the On Error Resume Next condition

End Sub