两个工作表合并

ANY1_0

工作簿中有两个工作表，每个工作表都有如图所示数据：

工作表数据机构

现在想把两个表中相同名字的记录数据进行合并。规则如下：某字段的各位看做逻辑1或者0，按位进行或运算。即该位只要有一个1，即保留1，若都是0，则取0.
例如：表1中和表2中都有“张三”的名字，表1中张三的win值为“01010”，表二中对应的win值为“11001”，则结果为“11011”
用表格函数公式或者VBA程序都可以。

9班练习汇总.rar (12.81 KB, 下载次数: 7)

2024-3-12 15:21 上传

点击文件名下载附件

wengjl

你的意思是：二表中对应的二个五位数，每一位上的2个数只要有一个是1，结果为1，二个都是1，结果也为1，只有二个都是0的时候，结果才是0

ykcbf1100

成绩怎么合并？

wengjl

还有成绩一列呢，是二表的成绩求和吗？

ykcbf1100

成绩现在是合计的，问你没回复。

ykcbf1100

参与一下。。。

1. Sub ykcbf()    '//2024.3.12
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     Dim arr, brr(1 To 10000, 1 To 7)
   
4.     Set Sh = ThisWorkbook.Sheets("合并")
   
5.     For Each sht In Sheets
   
6.         If sht.Name <> Sh.Name Then
   
7.             arr = sht.[a1].CurrentRegion
   
8.             For i = 2 To UBound(arr)
   
9.                 s = arr(i, 1)
   
10.                 If Not d.exists(s) Then
    
11.                     m = m + 1
    
12.                     d(s) = m
    
13.                     For j = 1 To 7
    
14.                         brr(m, j) = arr(i, j)
    
15.                     Next
    
16.                 Else
    
17.                     r = d(s)
    
18.                     brr(r, 2) = brr(r, 2) + arr(i, 2)
    
19.                     For j = 3 To 7
    
20.                         Sum = 0: st = ""
    
21.                         For x = 1 To 5
    
22.                             st1 = Val(Mid(brr(r, j), x, 1))
    
23.                             st2 = Val(Mid(arr(i, j), x, 1))
    
24.                             Sum = st1 + st2
    
25.                             If Sum = 2 Then Sum = 1
    
26.                             st = st & Sum
    
27.                         Next
    
28.                         brr(r, j) = st
    
29.                     Next
    
30.                 End If
    
31.             Next
    
32.         End If
    
33.     Next
    
34.     With Sh
    
35.         .[a2:g10000] = Empty
    
36.         .Columns("C:G").NumberFormatLocal = "@"
    
37.         .[a1].Resize(1, 7).Interior.Color = 49407
    
38.         .[a2].Resize(m, 7) = brr
    
39.         .[a1].Resize(m + 1, 7).Borders.LineStyle = 1
    
40.     End With
    
41.     Set d = Nothing
    
42.     MsgBox "OK！"
    
43. End Sub
    

复制代码

ANY1_0

wengjl 发表于 2024-3-12 15:47
你的意思是：二表中对应的二个五位数，每一位上的2个数只要有一个是1，结果为1，二个都是1，结果也为1，只 ...

就是这个样子的。这个在逻辑运算中叫或运算。但是表里是字符串，我把字符串当真值表。

ANY1_0

ykcbf1100 发表于 2024-3-12 15:48
成绩怎么合并？

成绩不用管，只要5位数合并

ANY1_0

wengjl 发表于 2024-3-12 15:49
还有成绩一列呢，是二表的成绩求和吗？

这个不用管。要的是五位数的结果

ANY1_0

ykcbf1100 发表于 2024-3-12 16:05
成绩现在是合计的，问你没回复。

合并了也没关系，我关心的是后面的五位数。成绩无所谓的。有五位数的结果就足够了。非常感谢