VBA 为什么有变量的单元格不能返回行列号

Zhjonhse

各位老师

请先看下列代码
Sub bc()
With Sheets("GG")
Rng = Range("c2", "i2")
SING = "Kalat"
For Each rn In Rng
If rn = SING Then
jx = rn.column

End If
Next
End With
End Sub

请问：为什么到jx这一行就出错，不能返回rn= SING时，rn对应的单元格的列号呢。
请老师们指教！
谢谢!

Zhjonhse

搞对了，上面的RANGE 定义错了。

谢谢！

abc123281

基础语法错误
Sub bc()
With Sheets("GG")
  Set Rng = .Range("c2:i2")
  SING = "Kalat"
  For Each rn In Rng
   If rn = SING Then
      n = n + 1
     jx = rn.Column
   End If
  Next
End With
MsgBox "共找到了" & n & "列", 64
End Sub

Zhjonhse

abc123281 发表于 2019-1-18 22:57
基础语法错误
Sub bc()
With Sheets("GG")

enen，谢谢！后来发现了。

请教老师：一列中中间有几个空格，是为了分类用的，如何找出从已知行向下连续第一个非空单元格的行号呢？

多谢！