数据提取并对比

popicture · 发表于 2020-5-11 16:25

原始数据表格取C列，V 列，W列，X列
系统导出表格，对照原始数据表的C 列，查找出相应的 R,S,U 列数据

1，以上数值变成数字格式，且小数位取小数点后两位。
2，进行数值对比，有差异的，在I 列标红，方便核对时筛选。

之前沿用的是VLOOKUP 方法，但每次都有设定一次，也太繁琐，
用录制宏，又不能解决小数字取位问题，还有就是不懂标红的操作方法。

特向各位大侠请教 VBA 的解决方法，谢谢！
以便依葫芦画瓢，日后可以提取其他字段进行比对。谢谢！

蓝桥玄霜 · 发表于 2020-5-11 17:42

确认的例子：

popicture · 发表于 2020-5-12 15:10

蓝桥玄霜发表于 2020-5-11 17:42
确认的例子：

版主，

我是否抄错了哪些，运行时，显示 424 抄错.png

popicture · 发表于 2020-5-12 15:11

popicture 发表于 2020-5-12 15:10
版主，

我是否抄错了哪些，运行时，显示 424

Sub lqxs()
Dim d, Arr, i&, Brr(1 To 500, 1 To 4), n%, Crr, j%
Set d = CreateObject("Scripting.Dictionary")
Sheet3.Activate
[a2:i5000].ClearContents
[g2:i5000].Font.ColorIndex = xlNone
Arr = Sheet.[a1].CurrentRegion
For i = 2 To UBound(Arr)
n = n + 1
Brr(n, 1) = Arr(i, 3): Brr(n, 2) = Arr(i, 22): Brr(n, 3) = Format(Arr(i, 23), "0.00"): Brr(n, 4) = Format(Arr(i, 24), "0.00")
d(Brr(n, 1) & "") = n + 1
Next
[a2].Resize(n, 4) = Brr
Crr = Sheet2.[a1].CurrentRegion
For i = 2 To UBound(Crr)
If d.exists(Crr(i, 2) & "") Then
n = d(Crr(i, 2) & "")
Cells(n, 7) = Crr(i, 18): Cells(n, 8) = Format(Crr(i, 19), "0.00"): Cells(n, 9) = Format(Crr(i, 21), "0.00")
For j = 7 To 9
If Cells(n, j - 5).Value <> Cells(n, j).Value Then Cells(n, j).Fornt.ColorIndex = 3
Next
End If
Next
End Sub

蓝桥玄霜 · 发表于 2020-5-13 09:24

Arr = Sheet.[a1].CurrentRegion
应该是Arr = Sheet1.[a1].CurrentRegion
If Cells(n, j - 5).Value <> Cells(n, j).Value Then Cells(n, j).Fornt.ColorIndex = 3
应该是If Cells(n, j - 5).Value <> Cells(n, j).Value Then Cells(n, j).Font.ColorIndex = 3