时间戳

首页 > 解决方案 > 比较 2 个不同大小的动态数组，看看有多少匹配

excel - 比较 2 个不同大小的动态数组，看看有多少匹配

问题描述

我有 2 个动态数组，其中第一个数组包含 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

理想情况下，将第一个数组与第二个数组进行比较并返回有多少相同的匹配项。从那里我希望能够根据它们是否匹配来执行下一步。如果它们不匹配，则不应将它们包含在下一步中。

标签： excelvbadynamic-arrays

解决方案

尝试这个。一口气从范围中填充数组。遍历 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

推荐阅读