同一个工作薄中的两个表一个是订货的，一个是到货的，想实现一下实际到货的和订货的区别。这样的订货表在一个目录下是多个表，能不能实现一下，谢谢

当有替换号时以替换号为准，当到货不全时写不全。

[此贴子已经被作者于2022-2-9 17:02编辑过]

感谢您的回复，真实的情况是这样的，一个目录下放订货单 ，一个目录下放到货单 ，

这个是可以的，就是有点麻烦了，能不能用VFP来实现一下，

Sub 新旧比较() 'bajifeng
ofn = Array("表1.xlsx", "表2.xlsx")
Application.DisplayAlerts = False
Workbooks.Open ThisWorkbook.Path & "" & ofn(0)
arr = ActiveWorkbook.ActiveSheet.UsedRange
ActiveWorkbook.Close
Workbooks.Open ThisWorkbook.Path & "" & ofn(1)
brr = ActiveWorkbook.ActiveSheet.UsedRange
crr = ActiveWorkbook.ActiveSheet.UsedRange
ActiveWorkbook.Close
[a1].Resize(UBound(brr), 7) = crr
For i = 2 To UBound(brr)
    For j = 1 To 7
        If arr(i, j) <> "" And brr(i, j) <> "" And arr(i, j) <> brr(i, j) Then Cells(i, j).Font.ColorIndex = 3
        If arr(i, j) = "" And brr(i, j) <> "" Then Cells(i, j).Font.ColorIndex = 4
        If arr(i, j) <> "" And brr(i, j) = "" Then
        Cells(i, j).Value = arr(i, j)
        Cells(i, j).Font.ColorIndex = 15
        End If
    Next
Next
Application.DisplayAlerts = True
End Sub

找个段代码，不太会处理