怎样用VBA对两表整行数据进行比对,提取不同的整行数据

fgq5910 · 发表于 2023-12-20 00:02

本帖最后由 fgq5910 于 2023-12-20 19:47 编辑

需求：
怎样用VBA对两表整行数据进行比对,
提取不同的整行数据
两表中每行对应的单元格都应相同，
如有不同，
提取整行数据到[两表比对]工作表中
如：1月1日1班1月1日上午
表1：授课教师：李振盟，
表2：授课教师：石泳健，
教师不同，把表1和表2中
1班1日上午所在的整行数据都提出来
结果表是想要达到的效果
谢谢！

cidanji · 发表于 2023-12-20 08:26

用VBA两表比对,提取不同的整行数据.rar (31.47 KB, 下载次数: 35)

yynrzwh · 发表于 2023-12-20 10:48

用VBA两表比对,提取不同的整行数据.rar (25.41 KB, 下载次数: 20)

ykcbf1100 · 发表于 2023-12-20 11:21

参与一下。。。

Sub ykcbf() '//2023.12.20
Dim arr, brr, zrr
arr = Sheets("表1").UsedRange
brr = Sheets("表2").UsedRange
ReDim zrr(1 To UBound(arr), 1 To 14)
For i = 3 To UBound(arr)
If arr(i, 1) <> Empty Then
For j = 1 To UBound(arr, 2)
If arr(i, j) & "#" <> brr(i, j) & "#" Then
r = i
m = m + 2
End If
Next
For j = 1 To UBound(arr, 2)
zrr(m - 1, 1) = "表1": zrr(m, 1) = "表2"
zrr(m - 1, j + 1) = arr(r, j)
zrr(m, j + 1) = brr(r, j)
Next
End If
Next
With Sheets("两表比对")
.UsedRange.Offset(2).Clear
.Cells.Interior.ColorIndex = 0
With .[a3].Resize(m, 14)
.Value = zrr
.Borders.LineStyle = 1
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
For i = 3 To m + 2 Step 2
For j = 2 To 14
If .Cells(i, j) & "#" <> .Cells(i + 1, j) & "#" Then
.Cells(i, j).Resize(2).Interior.ColorIndex = 6
End If
Next
Next
End With
MsgBox "OK！"
End Sub

复制代码

ykcbf1100 · 发表于 2023-12-20 11:22

附件供参考。。。

lkqsmxw · 发表于 2023-12-20 11:54

kkkkkkkkkkkkkkkkkkkkkkkkkkkkk

cai2532 · 发表于 2023-12-20 15:48

这个两表对比实例很实用。

fgq5910 · 发表于 2023-12-20 19:46

感谢各位高手的帮助！
求助成功

		自动登录	找回密码
密码			免费注册

[已解决] 怎样用VBA对两表整行数据进行比对,提取不同的整行数据

评分

评分

评分

评分