2,462
社区成员
发帖
与我相关
我的任务
分享请较,如何在EXCEL,VBA中, 用函数,查找一个字符串,并返回所在行的值.
请较,如何在EXCEL,VBA中, 用函数,查找一个字符串,并返回所在行的值?
...全文
请发表友善的回复…
发表回复
zhouhuaian 2006-09-20
- 打赏
- 举报
Set sqltext = oWs.Cells.Find("SELECT") '在文件中查找SELECT字符串
Row = oWs.Cells.Find("SELECT").Row '获得它所在的行
If Not sqltext Is Nothing Then
'取字符串中两个#号之间的字符串
start = InStr(1, sqltext, "#", 0) '查询字符串
endstr = InStr(start + 1, sqltext, "#", 0)
midtxt = Mid(sqltext, start + 1, endstr - start - 1)
end if
Row = oWs.Cells.Find("SELECT").Row '获得它所在的行
If Not sqltext Is Nothing Then
'取字符串中两个#号之间的字符串
start = InStr(1, sqltext, "#", 0) '查询字符串
endstr = InStr(start + 1, sqltext, "#", 0)
midtxt = Mid(sqltext, start + 1, endstr - start - 1)
end if
liulang0808 2006-09-20
- 打赏
- 举报
可以用FOR循环来查找的,
hhjjhjhj 2006-09-19
- 打赏
- 举报
For Each cl In Sheet1.UsedRange
If cl = "aaa" Then MsgBox cl.Row 'or like "*aaa*"
Next
======================
欢迎光临“OFFICE论坛”http://office.9zp.com
If cl = "aaa" Then MsgBox cl.Row 'or like "*aaa*"
Next
======================
欢迎光临“OFFICE论坛”http://office.9zp.com
boxerbinit 2006-08-31
- 打赏
- 举报
With Worksheets(lcststrSheetSaikenName)
Set lvarcellichi = .Range("E8:Z8").Find(Trim(lstrArrayList(1)), LookAt:=xlWhole)
If Not lvarcellichi Is Nothing Then
Cells(intLoopCnt - 1 + 9, .Range(lvarcellichi.Address).Column).Value = lstrArrayList(2)
End If
End With
lcststrSheetSaikenName:Sheets名称，
lstrArrayList(1)),：要查询的值
.Range(lvarcellichi.Address).Column ：这个值所在列
.Range(lvarcellichi.Address).Rows ：这个值所在行
Set lvarcellichi = .Range("E8:Z8").Find(Trim(lstrArrayList(1)), LookAt:=xlWhole)
If Not lvarcellichi Is Nothing Then
Cells(intLoopCnt - 1 + 9, .Range(lvarcellichi.Address).Column).Value = lstrArrayList(2)
End If
End With
lcststrSheetSaikenName:Sheets名称，
lstrArrayList(1)),：要查询的值
.Range(lvarcellichi.Address).Column ：这个值所在列
.Range(lvarcellichi.Address).Rows ：这个值所在行
boxerbinit 2006-08-26
- 打赏
- 举报
With Worksheets(lcststrSheetSaikenName)
Set lvarcellichi = .Range("E8:Z8").Find(Trim(lstrArrayList(1)), LookAt:=xlWhole)
If Not lvarcellichi Is Nothing Then
Cells(intLoopCnt - 1 + 9, .Range(lvarcellichi.Address).Column).Value = lstrArrayList(2)
End If
End With
lcststrSheetSaikenName:Sheets名称，
lstrArrayList(1)),：要查询的值
.Range(lvarcellichi.Address).Column).Value ：这个值所在列
Set lvarcellichi = .Range("E8:Z8").Find(Trim(lstrArrayList(1)), LookAt:=xlWhole)
If Not lvarcellichi Is Nothing Then
Cells(intLoopCnt - 1 + 9, .Range(lvarcellichi.Address).Column).Value = lstrArrayList(2)
End If
End With
lcststrSheetSaikenName:Sheets名称，
lstrArrayList(1)),：要查询的值
.Range(lvarcellichi.Address).Column).Value ：这个值所在列
mindray 2006-08-05
- 打赏
- 举报
查找字符串的最简单方法是——Find
以下代码可以直接运行（"你要找的字符串"）
Dim myrange As Range
Set myrange = ActiveSheet.Cells.Find(what:="你要找的字符串", LookIn:=xlValues)
MsgBox myrange.Row
以下代码可以直接运行（"你要找的字符串"）
Dim myrange As Range
Set myrange = ActiveSheet.Cells.Find(what:="你要找的字符串", LookIn:=xlValues)
MsgBox myrange.Row
sDuma 2006-08-03
- 打赏
- 举报
用宏录制功能,再按CTRL+F,就知道 查找的函数了.
xd1307 2006-04-16
- 打赏
- 举报
具体点哈,学习中....
yuanjiuz 2006-04-14
- 打赏
- 举报
用Application.WorksheetFunction.VLookup（）函数就可以了
vansoft 2006-04-06
- 打赏
- 举报
VBA有現成的，你調用本身的查找方法，
他會返回你所需要的信息的。
他會返回你所需要的信息的。
A_TRY 2006-04-05
- 打赏
- 举报
帮顶
学习中
学习中
oceannia 2006-04-02
- 打赏
- 举报
VBA里没有现成的函数吗？请教啦
province_ 2006-04-02
- 打赏
- 举报
这种函数还是你自己写吧，顺序查找或两分查找随你便。没什么难度的。
