急求！row属性返回空值不知道怎么回事

SiGre

我在sheet2的第一个单元格里输入一个债券名称，想在sheet1里找到它并且定位他的列。但是无论如何.column还是.row都返回一个空值，我还弄了好多debug.print来看，希望论坛里好心的大神帮帮我。实在搞不懂怎么回事

1. Sub hh1()
   
2. m1 = Sheet2.Cells(1, 1)
   
3. Debug.Print "m1=" & m1
   
4. Set osht = Sheet1
   
5. Set Rng = osht.Cells.Find(m1)
   
6. If Not Rng Is Nothing Then ohc2 = Rng.Column
   
7. 'If rng Is Nothing Then
   
8. '  x = 0
   
9. '  Else
   
10. '  x = 1
    
11. '  End If
    
12. '  Debug.Print "x=" & x
    
13.   Debug.Print "rng=" & Rng
    
14. '  och = rng.Row
    
15.   Debug.Print "och2=" & och2
    
16. 
    
17. End Sub

复制代码

SiGre

希望尽快通过审核，谢谢版主

jiminyanyan

SiGre 发表于 2018-8-8 20:55
希望尽快通过审核，谢谢版主

有个字打错了。。
Sub hh1()
m1 = Sheet2.Cells(1, 1)
Debug.Print "m1=" & m1
Set osht = Sheet1
Set Rng = osht.Cells.Find(m1)
If Not Rng Is Nothing Then ohc2 = Rng.Column
'If rng Is Nothing Then
'  x = 0
'  Else
'  x = 1
'  End If
'  Debug.Print "x=" & x
  Debug.Print "rng=" & Rng
'  och = rng.Row
  Debug.Print "och2=" & ohc2

End Sub

zmj9151

第6行是ohc2，第15行是och2，你这个变量打错了，起的名字不够直观

SiGre

太感谢了，犯了愚蠢的错误。写VBA不能急躁。名字奇怪是因为我是直接借鉴了别人的类似需求。谢谢大家热心帮助。已解决

xiaoxia520

1. Sub tesss()
   
2. Dim s$, sth2 As Worksheet, sth1 As Worksheet, rng As Range, targetr As Range, l$
   
3. Set sth1 = Worksheets(1)
   
4. Set sth2 = Worksheets(2)
   
5. s = sth2.Cells(1, 1)
   
6. sth1.Activate
   
7. With sth1.UsedRange
   
8.     Set targetr = .Find(s, , , xlPart)
   
9.     If Not targetr Is Nothing Then
   
10.         targetr.Select
    
11.         l = targetr.Column
    
12.         MsgBox l
    
13.     End If
    
14. End With
    
15. End Sub
    

复制代码

新手上路，纯练手不一定是最优