比较两个不同大小的动态数组，看看有多少匹配
比较两个不同大小的动态数组，看看有多少匹配
提问于 2019-04-10 22:28:26
我有两个动态数组，第一个数组包含15,000个值，位于Sheet1上。第二个数组有519个值，位于Sheet2上。
第一个数组中的所有值都应该在第二个数组中，因为第一个数组包含重复的值。
我想做的是比较第一个数组和第二个数组，并返回匹配数的百分比。(应该是100%)。
显示的代码只包含动态数组和公式的开头，用于检查数组的L和U边界。然而，我被公式应该说的内容卡住了。
Dim ws As Worksheet
Dim wb As Workbook
Dim ISRC() As Variant
Dim ISRC2() As Variant
Set wb = Workbooks("Recordssales2019-04-05")
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = wb.Worksheets("Recordssales2019-04-")
Set ws2 = wb.Worksheets("Metadata")
Lastrow = ws1.Range("E100000").End(xlUp).Row
ReDim ISRC(1 To Lastrow + 1)
MsgBox Lastrow
Lastrow = ws2.Range("AJ100000").End(xlUp).Row
ReDim ISRC2(1 To Lastrow + 1)
MsgBox Lastrow
For i = LBound(ISRC) To UBound(ISRC)
If ISRC(i) = ISRC2(i) Then理想情况下，将第一个数组与第二个数组进行比较，并返回匹配的数目相同的数组。从那里，我希望能够根据它们是否匹配来进行下一步。如果它们不匹配，则不应包含在下一步中。
回答 1
Stack Overflow用户
回答已采纳
发布于 2019-04-10 22:54:11
尝尝这个。从范围中一次性填充数组。循环通过ISRC，使用MATCH检查每个元素是否在另一个数组中，并保持计数。
Sub x()
Dim ws As Worksheet
Dim wb As Workbook, lastrow As Long, i As Long, v As Variant, count As Long
Dim ISRC As Variant
Dim ISRC2 As Variant
Set wb = Workbooks("Recordssales2019-04-05")
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = wb.Worksheets("Recordssales2019-04-")
Set ws2 = wb.Worksheets("Metadata")
lastrow = ws1.Range("E100000").End(xlUp).Row
ISRC = Application.Transpose(ws1.Range("E1:E" & lastrow).Value)
'MsgBox lastrow
lastrow = ws2.Range("AJ100000").End(xlUp).Row
ISRC2 = Application.Transpose(ws2.Range("AJ1:AJ" & lastrow).Value)
'MsgBox lastrow
For i = LBound(ISRC) To UBound(ISRC)
v = Application.Match(ISRC(i), ISRC2, 0)
If IsNumeric(v) Then count = count + 1
Next i
MsgBox count & " elements of ISRC are in ISRC2 (" & Format(count / UBound(ISRC), "0.0%") & ")."
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/55615074
复制相关文章
相似问题
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号