数据比对量大，求大神帮助

1330223822

数据比对量大，求大神帮助

grf1973

用字典。A列数组进字典，判断B列各单元是否在字典内，结果在C列输出。
是这个意思吧？

demonimissyou

Sub  查找 ()
Dim i, j, k, l, m, n, arr, brr, crr
i = [A65536].End(xlUp).Row
j = [B65536].End(xlUp).Row
arr = Range("A1:A" & i)
brr = Range("B1:B" & j)
ReDim crr(1 To UBound(brr), 1 To 1)
For k = 1 To UBound(brr)
For j = 1 To UBound(arr)
If brr(k, 1) = arr(j, 1) Then
crr(k, 1) = "与" & j & "行数组一致"
End If
Next
Next
[C1].Resize(UBound(crr), 1) = crr
End Sub

清风竹-

请看附件。

sxbjzjf110

参与一下

1330223822

谢谢给位大神

1330223822

清风竹- 发表于 2023-2-10 16:20
请看附件。

大神这要怎么用啊？

gwjkkkkk

参与一下。。。

清风竹-

1330223822 发表于 2023-3-21 16:46
大神这要怎么用啊？

打开文件，启用宏。
当B1输入“数组A”时，和A列的所有数组进行比对，如有相同C1提示“有”。
当B2输入“数组B”时，和A列的所有数组进行比对，如有相同C2提示“有”。
向下不断输入，每输入一个数组都和A列所有数组经行比对，并在C列提示，输入即自动比对并提示。

cai2532

这是数据对比比较实用例子，收藏了。