基于E列条件填充D列空单元格的VBA优化及N/A设置问询

需求回顾 #

当Excel的D列存在空单元格时：

• 若同行E列的值与上方E列的值相等，用D列上方单元格的值填充该空单元格；
• 若上述条件不满足，在D列空单元格中填入N/A。

原代码存在的问题 #

1. 循环起始值为i=1，此时i-1=0会引用不存在的单元格，触发运行时错误；
2. 仅处理了「D列空且E列与上方值相等」的场景，未覆盖其他空单元格填入N/A的逻辑；
3. 逐行操作单元格，数据量大时执行效率低下；
4. 硬编码数据范围D2:D2000和E2:E2000，无法适配数据行数的动态变化。

优化后的完整代码 #

Sub FillDColumn()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dData As Variant, eData As Variant
    Dim i As Long
    
    ' 指定目标工作表，替换成你实际使用的工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取D列实际数据的最后一行，避免硬编码行数
    lastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row
    If lastRow < 2 Then Exit Sub ' 无有效数据时直接退出
    
    ' 将D、E列数据读取到数组，减少单元格交互提升效率
    dData = ws.Range("D2:D" & lastRow).Value
    eData = ws.Range("E2:E" & lastRow).Value
    
    ' 遍历处理每一行数据
    For i = LBound(dData, 1) To UBound(dData, 1)
        ' 检查当前D列单元格是否为空
        If dData(i, 1) = "" Then
            ' 处理第一行（对应表格D2），无上方行直接填N/A
            If i = 1 Then
                dData(i, 1) = "N/A"
            Else
                ' 对比E列当前行与上一行的值
                If eData(i, 1) = eData(i - 1, 1) Then
                    dData(i, 1) = dData(i - 1, 1)
                Else
                    dData(i, 1) = "N/A"
                End If
            End If
        End If
    Next i
    
    ' 将处理后的数组一次性写回D列
    ws.Range("D2:D" & lastRow).Value = dData
End Sub

优化说明 #

• 避免激活依赖：通过指定工作表对象ws，确保代码不受当前激活工作表影响，运行更稳定；
• 动态获取数据范围：用lastRow自动计算D列最后一行数据，适配不同数据量；
• 提升执行效率：将数据读取到数组中处理，减少与Excel单元格的交互次数，数据量大时效率提升明显；
• 完善边界处理：针对表格第二行（对应数组i=1）的特殊情况，直接填入N/A，避免引用无效行；
• 完整逻辑覆盖：补充了「D列空但E列与上方值不等」的分支，确保所有空单元格都按需求处理。

内容的提问来源于stack exchange，提问作者Antionta07