为超过 500K 行运行宏的最佳方法？

Question

我有一个包含一堆行的文件，其中包含来自不同配置的某些部件号的数据。其中一些部件号在整个文件中重复，并且在这些重复的部件号中可能包含某些数据，而有些可能不包含。我正在尝试找到确定文件中某些数据的共性的最佳方法。所以对于共性，如果一行有值而另一行是空白的，则非空白行的值将被放入空白行。如果这两行的数据不同，它会改变单元格上的字体颜色，表明这个部件号有两个不同的唯一值，应该检查。

Dim i, j, n As Long
Dim lr As Long
Dim moaf As Workbook
Dim sht As Worksheet

Application.ScreenUpdating = False

Set moaf = Workbooks("MOAF3.xlsb")
Set sht = moaf.Worksheets("Wire Data")

n = InputBox("What column # are you trying to fill in?: ")
lr = Cells(Rows.count, 2).End(xlUp).Row

For i = 2 To lr
    lkup = Cells(i, 2).Value 'sets first lookup value
    Fill = Cells(i, n).Value 'sets the first data value to compare
    If Len(Fill) > 0 Then
        For j = 2 To lr
            lkup2 = Cells(j, 2).Value 'sets the second lookup value
            Fill2 = Cells(j, n).Value 'sets the second value to compare
            If lkup2 = lkup Then 'checks to see if p/ns are same
                If Len(Fill2) = 0 Then 'checks to see if second value is blank
                    Cells(j, n).Value = Fill 'if value is blank the cell takes value of non blank     cell
                ElseIf Fill <> Fill2 Then 'checks to see if the values are non matching and non zero
                    Cells(i, n).Font.ColorIndex = 3 'changes font color of two cells
                    Cells(j, n).Font.ColorIndex = 3 'changes font color of two cells
                End If
            End If
        Next j
    End If
Next i
Application.ScreenUpdating = True
End Sub

这样做通常会冻结我的 excel，我的计算机有 32GB 的 RAM 并且是 Windows10。有没有更好的方法来解决我的问题，或者它是否可以在不使用 vba 的情况下完成？我对不使用 vba 的方法进行了一些研究，但使用 sumifs、countifs 之类的方法，但还没有真正深入研究。

Answer 1

内部for循环只需从i开始，即：

for j = i to lr

这应该大约是运行时间的一半。

进一步的性能增强： 使用 .Value2 而不是 .Value 属性。 或者更好的是，将整个列读入一个数组，在 VBA 中处理，然后将结果写回。

Answer 2

所以，如果我正确理解您的问题，您可以从以下数据开始：

ID Column_header
 2             a
 3       _BLANK_
 4       _BLANK_
 5             b
 6       _BLANK_

而你想把它变成：

ID Column_header
 2             a
 3             a
 4             a
 5             b
 6             b

我知道一个非常简单的技巧（我将所有内容都放在'A'列中以供解释）：

• 选择该列中的每个单元格
• 转到 (Ctrl+G) 特殊，空白
• 在编辑栏中，输入=A2（您当前位于“A3”中，并且您想将其上方单元格的值复制到那里）
• 按 Ctrl+ENTER

您会看到“A2”被复制到“A3”中，“A3”被复制到“A4”中，“A5”被复制到“A6”中（事实上这是对 all 空白单元格，是由于Ctrl+ENTER）。

把它记录成一个宏，它会更快。

我已经看到一个问题弹出：“好的，但是我要更改的字体颜色呢？”。好吧，新填充的单元格是基于公式的，所以=FORMULATEXT() 的长度不会为零。您将其用作条件格式的基础。

祝你好运