作者：绿色风
分类：
时间：2022-08-18
浏览：102
楼主
yjzstar |
Q:已知资料信息及需匹配的数据信息如下：
如何将资料信息按末级匹配方式进行匹配至数据表中？结果如下：
单元格信息为“无”时需进行忽略处理！
A:运用数组将数据进行简单的存储，配合简单的循环及判断语句及可对数据进行末级匹配！具体代码如下：- Sub 末级匹配()
- Dim arr, brr, crr()
- Dim i As Integer
- Dim j As Integer
- Dim n As Integer
- arr = Sheet2.UsedRange
- n = UBound(arr)
- On Error Resume Next
- brr = Sheet1.Range("A2:A" & Sheet1.Range("a65536").End(xlUp).Row)
- For i = 1 To UBound(brr)
- For j = 2 To n
- For x = 4 To 1 Step -1
- If arr(j, x) = brr(i, 1) Then
- If x = 4 Or x < 4 And arr(j, x + 1) = "无" Then
- k = k + 1
- ReDim Preserve crr(1 To 4, 1 To k)
- crr(1, k) = arr(j, 1)
- crr(2, k) = arr(j, 2)
- crr(3, k) = arr(j, 3)
- crr(4, k) = arr(j, 4)
- Exit For
- End If
- End If
- Next
- Next
- Next
- Sheet1.Range("B2").Resize(UBound(brr), 4) = Application.WorksheetFunction.Transpose(crr())
- End Sub
|
2楼
开心二点 |
一如既往强大的师兄 |
3楼
zy19831128 |
这样的匹配有问题 |
4楼
zy19831128 |
如果资料中一项存在问题,这样的匹配就会大量出错.
经过验证大量数据,这样的匹配存在问题.
详见附件
 根据末级匹配.zip
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一