VBA初学者练习题

pig4343

我的目的是把A1:C2中大于零的数字替换我文字正数，不知道我写的代码哪里出问题了，目前是刚刚学，没有头绪，还请各位老师知道，谢谢。

abc123281

Sub bb()
Dim rg As Range
Set rg = Range("A1:C2")
For Each Rng In rg
   If Rng > 0 Then
      Cells(Rng.Row, Rng.Column) = "正数"
   End If
Next
End Sub

pig4343

知道了，非常感谢

lmgz007

abc123281 发表于 2020-2-20 22:24
Sub bb()
Dim rg As Range
Set rg = Range("A1:C2")

这个没法识别字母和数字，请问怎么办？