求教老师用VBA实现vlookup功能，为空时不显示错误

gglili

001.rar (7.59 KB, 下载次数: 3)

2024-1-4 20:48 上传

点击文件名下载附件

ykcbf1100

加上一个容错语句就行了。On Error Resume Next

gglili

ykcbf1100 发表于 2024-1-4 20:50
加上一个容错语句就行了。On Error Resume Next

求老师指点，本人刚接触这个，感谢🙏🏻

clyfd

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("F2")) Is Nothing Then

        Set ws = ActiveSheet ' 设置为活动工作表
    Set summaryWs = ThisWorkbook.Worksheets("汇总") ' 根据实际情况调整工作表名称
    ' 获取 F2 单元格的值作为搜索值
    searchValue = ws.Range("F2").Value
    ' 在 "汇总" 工作表的 B 列中查找搜索值
    Set Rng = summaryWs.Range("B:B")
    Set foundCell = Rng.Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole)
    ' 如果找到匹配的单元格，则将对应的 C 列值写入 F3
    If Not foundCell Is Nothing Then
        ws.Range("F3").Value = foundCell.Offset(0, 1).Value
    Else
        ws.Range("F3").Value = ""
    End If
    End If
End Sub
001.rar (15.39 KB, 下载次数: 6)

2024-1-4 21:16 上传

点击文件名下载附件

clyfd

代码审核中

clyfd

gglili 发表于 2024-1-4 20:57
求老师指点，本人刚接触这个，感谢🙏🏻

看看可以不

gglili

clyfd 发表于 2024-1-4 21:12
看看可以不

可以了老师，如果我想在汇总表原来的A列前面加一列，修改B：B，还应该修改哪里？

clyfd

gglili 发表于 2024-1-4 21:37
可以了老师，如果我想在汇总表原来的A列前面加一列，修改B：B，还应该修改哪里？

数据源在那列，就改为那列就行了，如果感觉对你有帮助，请点击下发评分，并献花

gglili

clyfd 发表于 2024-1-4 21:55
数据源在那列，就改为那列就行了，如果感觉对你有帮助，请点击下发评分，并献花

老师，怎么在sheet1的F2行前面插入两行，F2修改成F4，F3修改成F5，却不好用了呢？

gglili

clyfd 发表于 2024-1-4 21:00
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("F2")) Is No ...

已解决问题，感谢老师的帮助