[已解决]用vba描述指定项目所在单元格所在的行号

心灵有约

指定项目所在行的行号.zip (6.42 KB, 下载次数: 57)

2012-2-11 18:22 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2012-2-11 18:34

Sub 按钮1_Click()
    Dim rng As Range
    Set rng = Range("A:A").Find("北京")
    If Not rng Is Nothing Then
        MsgBox rng.Row
    End If
End Sub

跳转到最佳答案楼层

爱疯

Sub 按钮1_Click()
    Dim rng As Range
    Set rng = Range("A:A").Find("北京")
    If Not rng Is Nothing Then
        MsgBox rng.Row
    End If
End Sub

hrpotter

Range("A:A").Find("北京", , , xlWhole).Row

lzclzch

学习高手代码

心灵有约

hrpotter 发表于 2012-2-11 18:43
Range("A:A").Find("北京", , , xlWhole).Row

谢谢您。find（“北京”）和find（“北京”,,,XLWHOLE）的主要区别是什么？

上清宫主

匹配全部搜索文本还是匹配任一部分搜索文本（也就是工作表中进行查找时是否点选单元格匹配），对应的参数为xlWhole 或 xlPart。
如果这个参数不写，则使用你上次查找时用的是否单元格匹配

奔向未来

爱疯 发表于 2012-2-11 18:34
Sub 按钮1_Click()
    Dim rng As Range
    Set rng = Range("A:A").Find("北京")

请问一下,如果查找的数据在该列不唯一,怎么修改代码返回单元格数值时查找值的所有行号?谢谢