VBAFIND查找EXCEL中符合要求的单元格行号和列号_金钟常鸣

个人资料

微博

正文字体大小：大中小

VBAFIND查找EXCEL中符合要求的单元格行号和列号

(2019-03-05 22:11:03)

标签：

分类： VBA

Sub find()'在 Sheets("Sheet1")的A列查找"警钟常鸣"

Dim Rng As Range

Set Rng = Sheets("Sheet1").Columns("A:A").find(what:="警钟常鸣")

If Rng Is Nothing Then

MsgBox "无匹配单元格"

Else

MsgBox "匹配单元格" & Rng.Row 'Rng.Row为所在单元格行号，Rng.Column为所在单元格列号

End If

End Sub

'注意使用IF语句使用FIND函数时，应将查不到(没有find)的情况防在第一个条件！ELSE语句后，放置查到后的代码。否则就会出错！

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report