用代码一次选取“A2：C12”区域所有大于0数字所在的行

王南帅

kiss被注册 发表于 2013-5-20 23:39
楼主的学习是视频么，可否要一份

谢谢

上传中，上传完后你进QQ邮箱看看吧

nanohappy

楼主 新人能否要个视频看看{:soso_e189:}

kiss被注册

王南帅 发表于 2013-5-21 10:41
上传中，上传完后你进QQ邮箱看看吧

十分感谢,楼主好人

清风幽闲

Sub 提取大于0的行()
Dim rng As Range
For Each rng In Range("a2:c12")
    If IsNumeric(rng) And rng.Value > 0 Then
        rng.EntireRow.Interior.ColorIndex = 3
    End If
Next rng
End Sub
对单元格大于0的行，整行背景色变为黄色

一切安好1991727

清风幽闲 发表于 2013-5-21 20:12
Sub 提取大于0的行()
Dim rng As Range
For Each rng In Range("a2:c12")

Sub 提取大于0的行()
  Dim rng As Range
  For Each rng In Range("a2:c12")
  If IsNumeric(rng) And rng.Value > 0 Then
  rng.EntireRow.Select
  End If
  Next rng
End Sub
你好，我根据你的代码，想提取符合这些条件的行，不填充颜色，请问我这个代码哪里错了呢，我只能提取到一行？感谢

Lvyefanzhou

一切安好1991727 发表于 2022-11-22 17:48
Sub 提取大于0的行()
  Dim rng As Range
  For Each rng In Range("a2:c12")

最后只能选中一行

Lvyefanzhou

microyip 发表于 2013-5-21 01:18

感谢大佬，代码正确，但是不怎么理解 Split的作用，求教，谢谢！

microyip

Lvyefanzhou 发表于 2023-2-7 15:17
感谢大佬，代码正确，但是不怎么理解 Split的作用，求教，谢谢！

用$作为分隔符，将地址分隔成列号和行号出来