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

问题描述：

#问题：我想在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

答

总课表中的数字是全角状态下的１，你输入的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

答

vba写得没毛病

关键是表格中得"初中1"，有没有发现这个数字很奇怪？
sheet2 中得1 和sheet1 中的1 根本不一样，所以匹配不到是预料中的

你可以试下从总课表中把那个“初中1”复制到sheet1中，然后执行vba看结果是什么

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

请 指教下~

相关推荐

请指教下~