模糊查询

54321shenyong · 发表于 2024-5-17 09:04

根据以下条件用字典写vba代码
条件表：“合同编号”表 “人员信息表(合同)”表
代码结果要求：根据“合同编号”表D4、E4、F4、G4的模糊条件（模糊条件格式为DJ-GYLC-23）在“人员信息表(合同)”表I列对应姓名查询出A列合同编号结果，分别写入“合同编号”表D列条件查找到的值、E列条件查找到的值、以此类推至Z列

ykcbf1100 · 发表于 2024-5-17 09:18

我是没看懂楼主的意思啊。楼主到底想干什么？建议把摸拟结果放上来以帮助理解。

54321shenyong · 发表于 2024-5-17 09:36

ykcbf1100 发表于 2024-5-17 09:18
我是没看懂楼主的意思啊。楼主到底想干什么？建议把摸拟结果放上来以帮助理解。

你好！老师 D4开始的列条件是代表合同年份而且向右的公司不同在条件单元格里面有提现比如“达金”用字母代替:DJ-GYLC-23001;

54321shenyong · 发表于 2024-5-17 09:42

ykcbf1100 发表于 2024-5-17 09:18
我是没看懂楼主的意思啊。楼主到底想干什么？建议把摸拟结果放上来以帮助理解。

你好！老师，d4向右的条件是不同的包含公司和年份的不同要把C列人员的合同年份和公司按条件提取到对应列。
比如“达金”用字母DJ代替及对应源表数据：DJ-GYLC-23001
达金-工程名称-年份合同编号

54321shenyong · 发表于 2024-5-17 10:05

列标题条件单元格D4、E4、F4  。。。。。。至Z4都是按公司名称和年份区分的不同条件：DJ-GYLC-23001
                                    “达金”用字母简化为DJ -GYLC（用字母简化工程名称）-23001（为年份及编号）
                                    “聚德荣”用字母简化为 JDR，后面同上
根据姓名和列标题条件在源表查找出对应的合同编号  写入对应的坐标单元格。
不知道这样表达清楚不？

ykcbf1100 · 发表于 2024-5-17 10:31

附件供参考。。。

ykcbf1100 · 发表于 2024-5-17 10:32

参与一下。。。

Sub ykcbf() '//2024.5.17
Set d = CreateObject("Scripting.Dictionary")
With Sheets("人员信息表(合同)")
r = .Cells(Rows.Count, 1).End(3).Row
arr = .[a1].Resize(r, 2)
End With
For i = 2 To UBound(arr)
s = Replace(arr(i, 2), " ", "")
d(s) = arr(i, 1)
Next
With Sheets("合同编号")
r = .Cells(Rows.Count, 3).End(3).Row
c = .UsedRange.Columns.Count
For i = 4 To r
s = Replace(.Cells(i, 3), " ", "")
If d.exists(s) Then
For j = 4 To c
If InStr(d(s), .Cells(4, j)) Then
.Cells(i, j) = d(s)
Else
.Cells(i, j) = ""
End If
Next
End If
Next
End With
MsgBox "OK！"
End Sub

复制代码

longwin · 发表于 2024-5-17 11:00

请测试....

54321shenyong · 发表于 2024-5-17 11:26

两位老师的代码都进行了测试，发现标题行向右，源数据增加了聚德荣的合同编号，运行代码无法查询出结果，请两位老师检查修改一下代码。

54321shenyong · 发表于 2024-5-17 11:36

不好意思，我把数据源表的姓名列调整到I列了，我改动了列代码，不知道什么地方没改对

		自动登录	找回密码
密码			免费注册

模糊查询

评分

评分

评分