网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vba吧 关注：17,012贴子：66,420
  • 3回复贴，共1页

请教FIND用法

问题描述如下，请大神帮忙解惑
Sheets("深南 L").Activate
bbb = Sheets("深南 L").Range("A1048576").End(xlUp).Row
For aaa = 3 To bbb Step 1
mm = Sheets("深南 L").Range("B" & aaa).Value
nn = Sheets("深南").Range("B:B").Find(mm).Row------问题点：如果找不到，不会清除上次的行号值，抓取数据是会沿用上一次的行号
With Sheets("深南 L")
.Range("AR" & aaa) = Sheets("深南").Range("AS" & nn)
.Range("AS" & aaa) = Sheets("深南").Range("AT" & nn)
.Range("AU" & aaa) = Sheets("深南").Range("AU" & nn)
End With
If IsEmpty(Cells(aaa, 1)) Then
Exit For
End If
Next


直接=就会这样，要这样操作
dim RngA as range
set rnga = worksheets("aa").cells.find("abc")
if not rnga is nothing then row = rnga.row


例
完全匹配(精确查找)
Sub 查找()
Set findcell = Sheet1.Range("A:A").Find("日期", LookAt:=xlWhole) 'xlpart部分匹配(默认值)，LookAt:=xlWhole完全匹配(精确查找)
If Not findcell Is Nothing Then
MsgBox "找到符合条件的单元格：" & findcell.Row '提示所在行；列为findcell.Column；单元格为findcell.Address
Else
MsgBox "没找到符合条件的单元格"
End If
End Sub
部分匹配（模糊查找）
Sub 查找()
Set findcell = Sheet1.Range("A:A").Find("日期", LookIn:=xlValues, Lookat:=xlPart) 'xlpart部分匹配(默认值)，LookAt:=xlWhole完全匹配(精确查找)
If Not findcell Is Nothing Then
MsgBox "找到符合条件的单元格：" & findcell.Row '提示所在行；列为findcell.Column；单元格为findcell.Address
Else
MsgBox "没找到符合条件的单元格"
End If
End Sub


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 3回复贴，共1页
分享到: