按指定条件填充列值：Activity=curing且Order=NextOrder的Range.fillup问题

你遇到的核心问题是Range.FillUp没法先筛选指定条件的行，只能处理连续区域，所以没法精准批量填充符合要求的空值。下面给两种可行的解决办法：

方法一：VBA代码精准批量填充 #

用AutoFilter先筛出目标行，再针对可见区域的空值执行填充，代码示例如下（按需修改工作表、列号、NextOrder引用）：

Sub FillBlankByCondition()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim targetRange As Range
    
    ' 指定目标工作表，改成你实际的表名
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 获取数据最后一行（假设A列是数据起始列，按需调整）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 清除已有筛选
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 应用筛选：Activity列（假设是B列）为"curing"，Order列（假设是C列）等于NextOrder的值
    ws.Range("A1:C" & lastRow).AutoFilter Field:=2, Criteria1:="curing"
    ws.Range("A1:C" & lastRow).AutoFilter Field:=3, Criteria1:=ws.Range("NextOrder").Value ' 若NextOrder是固定值，直接写"xxx"
    
    ' 定位筛选后可见区域里的空单元格（假设要填充的是D列，按需修改）
    On Error Resume Next
    Set targetRange = ws.Range("D2:D" & lastRow).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeBlanks)
    On Error GoTo 0
    
    If Not targetRange Is Nothing Then
        ' 对每个连续空区域执行FillUp
        Dim area As Range
        For Each area In targetRange.Areas
            area.FillUp
        Next area
    End If
    
    ' 清除筛选
    ws.AutoFilterMode = False
End Sub

代码说明： #

1. 先通过AutoFilter精准锁定Activity="curing"且Order=NextOrder的行
2. 用SpecialCells筛选出可见区域里的空单元格，再按连续区域批量执行FillUp，解决单次只能填一个值的问题
3. 记得根据你的表格结构，修改工作表名、列号、NextOrder的取值方式

方法二：Excel公式填充（无需代码） #

如果不想用VBA，可在要填充的列（比如D列）的第一行数据单元格（D2）输入以下公式，然后下拉填充：

=IF(AND(B2="curing",C2=NextOrder),IF(D2="",INDEX(D:D,MAX(ROW($D$1:D1)*(B$1:B1="curing")*(C$1:C1=NextOrder))),D2),D2)

填充完成后，可选中该列，右键选择「复制」→「粘贴为值」，把公式转为静态内容。

公式说明： #

• 先判断当前行是否符合条件，符合的话如果单元格为空，就往上找最近的同条件且有值的单元格，把值填充过来；不符合条件则保留原内容

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