VBA高效实现：任务状态为Closed时替换Deadline列内容为Done

一、Excel公式动态显示方案（无需代码） #

如果只需要动态展示结果（不修改原始日期），用IF函数比LOOKUP更直观：

• 在辅助列（比如K列）的K7单元格输入：
  =IF(H7="Closed","Done",J7)
  下拉填充到最后一行，之后可以隐藏原始J列，用K列展示状态对应的结果。

如果一定要用LOOKUP实现，可使用数组匹配逻辑：
=LOOKUP(H7,{"Closed","In Progress","Pending"},{"Done",J7,J7})
逻辑是匹配H列的状态值，对应返回"Done"或原始日期，可根据实际状态扩展数组内容。

二、VBA高效批量修改方案（直接修改单元格值） #

如果需要永久将J列日期替换为"Done"，用批量操作替代逐行If-Then，效率更高：

代码示例 #

Sub UpdateClosedTaskDates()
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim taskRange As Range
    
    ' 指定工作表（替换为你的表名，比如"任务列表"）
    Set targetSheet = ThisWorkbook.Worksheets("任务列表")
    ' 获取H列最后一行数据行号
    lastRow = targetSheet.Cells(targetSheet.Rows.Count, "H").End(xlUp).Row
    
    ' 方案1：用Replace批量替换（适合快速处理）
    Set taskRange = targetSheet.Range("J7:J" & lastRow)
    taskRange.Replace What:="*", Replacement:="Done", _
        LookAt:=xlPart, MatchCase:=False, _
        Where:=targetSheet.Range("H7:H" & lastRow).Value = "Closed"
    
    ' 方案2：用AutoFilter筛选后批量赋值（大数据量更高效）
    ' targetSheet.Range("H6:J" & lastRow).AutoFilter Field:=1, Criteria1:="Closed"
    ' targetSheet.Range("J7:J" & lastRow).SpecialCells(xlCellTypeVisible).Value = "Done"
    ' targetSheet.AutoFilterMode = False
End Sub

代码说明 #

• 两种方案都无需逐行循环，避免冗长代码
• 自动识别数据最后一行，适配后续数据行数变化
• 若需忽略状态大小写，将MatchCase:=False保留即可；如需严格匹配，改为True

三、注意事项 #

• 公式方案避免循环引用，优先用辅助列展示结果
• VBA运行前建议备份数据，防止误操作
• 确保H列状态文本格式统一（比如不要混合"closed"和"Closed"），必要时用UPPER(H7)="CLOSED"统一判断逻辑

内容的提问来源于stack exchange，提问作者Martin Vestenkjær