EXCEL 能否实现这种乱序、模糊查询？

vexce · 发表于 2023-3-21 11:59

本帖最后由 vexce 于 2023-3-21 14:49 编辑

更新：
EXCEL 能否实现这种功能，用公式或 VBA 都行：
Sheet1. C 列数据行数不固定。
Sheet2, C, D 列是数据源，行数不固定。

要实现类似 LOOKUP(,0/ 的查找功能，按 sheet1 C 列内容，在 sheet2 C,D 列查询，
如果 sheet2 C 列的关键字全包含于 sheet1 C 列，就把对应的 sheet2 D 列值返回到 sheet1 D 列。
但是，难点是 sheet1 C 列的关键字的顺序与 sheet2 C 列不同。
这样的查询功能，可以实现吗？

BOOK4.zip (13.77 KB, 下载次数: 9)

cjc209 · 发表于 2023-3-21 12:06

同行比较还是只要c列任意一行有就算?

abiao · 发表于 2023-3-21 12:14

内置函数肯定没有这样的功能，用VBA，应该是挺简单的。

cjc209 · 发表于 2023-3-21 12:44

vba匹配同行

lkqsmxw · 发表于 2023-3-21 12:59

Sub ZFCCX()
Dim rng As Range, SHT As Worksheet
Dim Str As String, zhys
Dim I As Integer, J, N, ARR
Dim T
Application.ScreenUpdating = False                      '//1Ø±ÕÆáÄ»Ë￠DÂ
Application.DisplayAlerts = False                         '//1Ø±ÕÏμí3ìáê¾
Application.Calculation = xlManual
On Error Resume Next
T = Timer
'//¿aê¼ê±¼ä

Set SHT = ActiveWorkbook.ActiveSheet
ROWX = SHT.UsedRange.Rows.Count                         '''.CurrentRegionμ±Ç°Çøóò'''.UsedRangeòÑ¾-ê1óÃμÄÇøóò'''.Columns
ARR = SHT.Cells(1, 1).CurrentRegion '''UsedRange '''

For I = 2 To UBound(ARR)
N = 0
For J = 1 To VBA.Len(ARR(I, 1))
If InStr(1, ARR(I, 3), VBA.Mid(ARR(I, 1), J, 1)) > 0 Then N = N + 1
Next J
If Val(N) = Val(Len(ARR(I, 1))) Then ARR(I, 4) = ARR(I, 2) Else ARR(I, 4) = ""
Next I
SHT.Cells(1, 1).Resize(UBound(ARR), UBound(ARR, 2)) = ARR
MsgBox "2éÑˉíê±Ï!" & vbCrLf & "óÃê±￡o" & Format(Timer - T, "#0.0000") & " Ãë", , "LKQSMXWóÑÇéìáê¾!!" '//ìáê¾ËùóÃê±¼ä
Application.ScreenUpdating = True                         '//»Ö¸′ÆáÄ»Ë￠DÂ
Application.DisplayAlerts = True                         '//»Ö¸′Ïμí3ìáê¾
Application.Calculation = xlAutomatic
End Sub

lkqsmxw · 发表于 2023-3-21 13:03

本帖最后由 lkqsmxw 于 2023-3-21 14:53 编辑

KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK改了改

vexce · 发表于 2023-3-21 13:33

cjc209 发表于 2023-3-21 12:06
同行比较还是只要c列任意一行有就算?

我的例子可能说得不清楚。是任一行。不是同行。

cjc209 · 发表于 2023-3-21 13:47

稍微改一下就ok了只要原理懂得就好搞

cjc209 · 发表于 2023-3-21 13:48

这就是不论在哪行都可以对应找出来

vexce · 发表于 2023-3-21 14:29

lkqsmxw 发表于 2023-3-21 13:03
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK

强大如斯！感谢！
我发贴时以为不太可能实现，举的例子格式作了简化，现在把自己坑了。

可否再请教一下，表格作以下改动后（请见附件），代码须如何改：
把数据源放到 Sheet2,
Sheet1 和 Sheet2 的第1，2行都是表头。
Sheet 1 的数据有时中间有空行。

我自己尝试改了几次，水平太菜，各种出错。

book3 by-lkqsmxw.zip (17.08 KB, 下载次数: 10)

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

EXCEL 能否实现这种乱序、模糊查询？

评分

评分