Question

我有一系列看起来像你在下面看到的潜艇。我正在做的是从另一个Excel工作表更新主数据表。

系列中的第一个将现有主数据表与更新数据进行比较，并从更新表中删除ID丢失。

系列中的第二个将任何新ID复制到主数据表中，但尚未存在。

我的流程中的第三步需要比较ID中的相邻单元格数据（如果该ID存在），如果主数据不同，则将其移动到单元格注释中，突出显示单元格，然后使用更新数据。

由于比较的数量，我不确定这样做的最佳方法。平均将有30K行和14列。这些比较我到目前为止工作很快。建议将不胜感激。

Sub Compare_Function_Insert()
    On Error Resume Next
    Err.Clear
    Application.ScreenUpdating = False
    Sheets("Update").Select
    Sheets("Update").Activate
    With Sheets("Update").Range(Cells(4, 1), Cells(Rows.Count, 1).End(xlUp)).Offset(, 35)
        .Formula = "=VLOOKUP(A4,'New Master Data 6.1'!A:A,1,FALSE)"
        .Value = .Value
        .SpecialCells(xlCellTypeConstants, 16).EntireRow.Copy Sheets("New Master Data 6.1").Range("A" & Rows.Count).End(xlUp).Offset(1)
        .SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete
        .ClearContents
    End With
    Application.ScreenUpdating = True
    Sheets("New Master Data 6.1").Activate
    Call Compare_Function_MatchEval
End Sub

VBA相邻小区比较

0 个答案: