excel中VBA获取所查询内容所在行数问题

Question

#问题：我想在sheet2 中 输入 初一1 查询 sheet1（已经改名为 总课表 ）第一列 中 对应 名称，然后 通过VBA 能获取到 所查询 的 内容 所在 行号，并且 能 获取 的 行号 赋值 给 一个 变量，网上查询了 很多，，都不能用 例如 一下

# sub 查询()
#  dim rG as range
#  dim i
#  set rG=worksheets("总课表").range("A:A").find("初一1",,xlvalues,xlwhole)
#  i = rG.row 
# end sub

#老是出错或是不显示，，改来改去 不行

请 指教下~

总课表

sheet2

Answer 1

总课表中的数字是全角状态下的１，你输入的1是半角状态的，当然会找不到，改成全角的１就行了，不过最好判断下是否找单元格再取值。有帮助麻烦点个采纳【本回答右上角】，谢谢~~

Sub findcell()
  Set r = Worksheets("sheet1").Range("A:A").Find("初一２")
  If r Is Nothing Then
    MsgBox "找不到值"
  Else
    MsgBox r.row
  End If
End Sub