在一个EXCEL表的某一列中查找一个特定的值,并返回这个单元格的位置,VB代码如何实现

[rainbow1216]

在一个EXCEL表的某一列中查找一个特定的值,并返回这个单元格的位置,VB代码如何实现?

[zzyong00]

Private Function FindPos(intColumn As Integer, strContent As String) As Integer
Dim i As Integer
i = 1
Do While i < 30000
If CStr(ThisWorkbook.ActiveSheet.Cells(i, intColumn)) = strContent Then
FindPos = i
Exit Do
End If
i = i + 1
Loop

End Function

Public Sub s()
MsgBox FindPos(1, "a")
End Sub

[guyehanxinlei]

关注一下!

[rainbow1216]

我的数据10几万行.我是想在找一列中查找特定的数据

[zzyong00]

Private Function FindPos(intColumn As Long, strContent As String) As Integer
Dim i As long
i = 1
Do While i < 200000'这下满足了吧
If CStr(ThisWorkbook.ActiveSheet.Cells(i, intColumn)) = strContent Then
FindPos = i
Exit Do
End If
i = i + 1
Loop

End Function

Public Sub s()
MsgBox FindPos(1, "a")'1是第一列，a是特定数据
End Sub

[rainbow1216]

DING

[清晨曦月]

楼上兄弟是在坑人么..那会慢死..

用什么函数忘记了,LZ去查一下OFFICE里自带的VBA帮助,里面有,你可以直接调用它内置的一个函数来查询.

[supergreenbean]

这就是宏里面记录的东西
找文字
Range("C1").Select
ActiveCell.FormulaR1C1 = "=MATCH(""要找的字符串"",C[2],0)"
Debug.Print "单元格位置:"; ActiveCell.Value
找数字
Range("C1").Select
ActiveCell.FormulaR1C1 = "=MATCH(9,C[2],0)"
Debug.Print "单元格位置:"; ActiveCell.Value

[清晨曦月]

顶豆豆一下下..

[rainbow1216]

我想把这个功能用VB封为动态库的一个方法.参数就是:要查找的数据,和指定的列.返回这个数据所在的行列