压缩大量（不实用）基于循环的 VBA 代码；嵌套的 For...Next 循环

Question

大家好，先简单介绍一下我的项目背景，然后我会跟进我的具体问题和代码。

目前我正在构建一个程序来自动化填充模板的过程。这个模板经常超过 60,000 行数据，我通过插入新的数据表并运行它来构建它的大部分以每月工作。目前所有的工作都基于我手动导入到 excel 中的一张数据表。此数据表不包含填充模板所需的所有数据，因此现在我开始引入其他数据来补充它。这里的问题在于数据关联。当我最初从一个数据表中提取数据时，我不必担心我为每一行提取的数据是否与其他行一致，因为它们都来自同一个数据表。现在我必须交叉检查两张纸上的数据，以确认它提取了正确的信息。

现在了解您需要了解的内容。我正在尝试填充将被称为理发的列，但在此之前，我需要确认我正在提取与贸易 ID 相关的正确理发编号，该贸易 ID 已填充到上一行的模板中代码。

使用我在整个项目中一直使用的类似逻辑，这是我必须执行此任务的一段代码。

    Dim anvil as Worksheet
    Dim ALLCs as worksheet
    Dim DS as worksheet
    '''''''''''''''''''''''''''''code above this line is irrelevant to answer this question
    ElseIf InStr(1, DS.Cells(x, 2), "Haircut") Then
    Anvil.Select
        For y = 1 To 80
            If Anvil.Cells(1, y) = "Haircut" Then
                For Z = 1 To 80
                    If Anvil.Cells(1, Z) = "Trade ID" Then
                        For t = 2 To 70000
                            For u = 16 To 70000
                                If Anvil.Cells(t, Z) = ALLCs.Cells(u, 34) Then
                                ALLCs.Cells(u, 27) = Anvil.Cells(t, y)
                                End If
                            Next
                        Next
                    End If
                Next
            End If
        Next

这个代码加上我的其他代码我认为理论上可以工作，但我只能想象它会花费难以置信的时间（这个程序已经需要 7 分半钟才能运行）。关于如何按照这个一般逻辑以更好的功能重写这段代码有什么建议吗？

感谢您提供任何帮助，无论您是完全修改代码，还是提供有关如何减少循环的建议。除了屏幕更新和计算建议之外，我还在寻找加快代码速度的建议。

Answer 1

如果我正确理解了逻辑，那么您可以使用 .Find() 方法替换除一个循环之外的所有循环，如下所示：

'// Dimension range objects for use
Dim hdHaricut As Excel.Range
Dim hdTradeID As Excel.Range
Dim foundRng As Excel.Range

With Anvil
    With .Range("A1:A80") '// Range containing headers
        '// Find the cell within the above range that contains a certain string, if it exists set the Range variable to be that cell.
        Set hdHaircut = .Find(What:="Haircut", LookAt:=xlWhole)
        Set hdTradeID = .Find(What:="Trade ID", LookAt:=xlWhole)
    End With
    '// Only if BOTH of the above range objects were found, will the following block be executed.
    If Not hdHaricut Is Nothing And Not hdTradeID Is Nothing Then
        For t = 2 To 70000
            '// Using the .Column property of the hdTradeID range, we can see if the value of Cells(t, hdTradeColumn) exists 
            '// in the other sheet by using another .Find() method.
            Set foundRng = ALLCs.Range(ALLCs.Cells(16, 34), ALLCs.Cells(70000, 34)).Find(What:=.Cells(t, hdTradeID.Column).Value, LookAt:=xlWhole)
            '// If it exists, then pass that value to another cell on the same row
            If Not foundRng Is Nothing Then ALLCs.Cells(foundRng.Row, 27).Value = .Cells(t, hdHaircut.Column).Value
            '// Clear the foundRng variable from memory to ensure it isn't mistaken for a match in the next iteration.
            Set foundRng = Nothing
        Next
    End If
End With