excel - Excel VBA ゼロより大きい数値を含む各セルを置き換える方法

Question

範囲内のゼロより大きい数値を置き換えるにはどうすればよいですか?

特定の範囲内の特定の単語または数字を 1 つ置き換えることができます。

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

1-1000000ここで、ループ ステートメントを使用するとマクロの実行が遅くなるような、0 より大きい数値を含むものをすべて置き換えたい場合はどうでしょうか。

私は次のようなコードがあることを望んでいました：

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