[已解决]请教核对

fdfdxxhjc

先生下午好，我有一个212行12列的“请教核对.xlsx”,现在要求右边212行6列（简称右块）的第一行中的6个数与左边212行6列（简称左块）的每一行的6个数分别核对，若右块的某一行的6个数与左块某一行的6个数分别相等则在右块该行的右侧单元格写入0，否则写入1，以此直到右块的最后一行，想用数组的形式实现，请教先生如何设置，谢谢，诚挚的感谢 请教核对.rar (16.1 KB, 下载次数: 5)

2021-10-25 14:31 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-10-25 19:34

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

心正意诚身修

1. Sub 数据核对()
   
2. Dim ARR, BRR, CRR(), I As Integer, J As Integer, K As Integer, MAXROW As Integer, X As Byte
   
3. MAXROW = Range("A1").End(xlDown).Row
   
4. ARR = Range("A2:F" & MAXROW)
   
5. BRR = Range("G2:L" & MAXROW)
   
6. ReDim CRR(1 To UBound(ARR))
   
7. For K = 1 To UBound(ARR)
   
8.     For I = 1 To UBound(ARR)
   
9.        If ARR(I, 1) = BRR(K, 1) And ARR(I, 2) = BRR(K, 2) And ARR(I, 3) = BRR(K, 3) And ARR(I, 4) = BRR(K, 4) And ARR(I, 5) = BRR(K, 5) And ARR(I, 6) = BRR(K, 6) Then
   
10.         CRR(K) = 1
    
11.         GoTo 1:
    
12.         Else
    
13.         CRR(K) = 0
    
14.         End If
    
15.     Next
    
16. 1:
    
17. Next
    
18. Range("M2").Resize(MAXROW) = Application.Transpose(CRR)
    
19. End Sub
    

复制代码

用VBA做了一个。

cutecpu

祝順心，南無阿彌陀佛！

fdfdxxhjc

心正意诚身修 发表于 2021-10-25 17:27
用VBA做了一个。

真棒，谢谢先生

fdfdxxhjc

cutecpu 发表于 2021-10-25 19:34
祝順心，南無阿彌陀佛！

谢谢先生

心正意诚身修

cutecpu 发表于 2021-10-25 19:34
祝順心，南無阿彌陀佛！

本来是想学习你的VBA解法的。你用的函数解。有个不算BUG的BUG。如果有多次满足条件 的话。那么可能会得到23456这样的结果 。所以我稍稍修改了一下。=N(SUM(N(MMULT(N(A$2:F$213=G2:L2),{1;1;1;1;1;1})=6))>0)

cutecpu

心正意诚身修 发表于 2021-10-25 20:46
本来是想学习你的VBA解法的。你用的函数解。有个不算BUG的BUG。如果有多次满足条件 的话。那么可能会得到 ...

VBA

Sub demo()
   Set d = CreateObject("Scripting.Dictionary")
   a = [a1].CurrentRegion
   For i = 2 To UBound(a)
      For j = 1 To 6: s = s + Format(a(i, j), "00"): Next
      d(s) = 1: s = ""
   Next
   For i = 2 To UBound(a)
      For j = 7 To 12: s = s + Format(a(i, j), "00"): Next
      a(i, 13) = d(s) + 0: s = ""
   Next
   [a1].Resize(UBound(a), UBound(a, 2)) = a
End Sub