VBA开发需求：检测单元格指定文本并批量填充布尔值（自动填充）

原代码存在的问题 #

• 未判断C列单元格是否包含文本，会给C列空行对应的A列也填充公式
• 公式返回值为"Yes"/"No"，不符合需求的True/False要求
• VBA字符串中的双引号未转义，会导致编译错误
• AutoFill方式效率不如直接批量设置公式

修正后的代码（两种实现方式） #

方式1：遍历行判断C列内容（适合少量数据）

Sub FillDown()
    Dim LastRowC As Long
    Dim ws As Worksheet
    Dim cell As Range
    
    ' 指定目标工作表，避免依赖活动表
    Set ws = ActiveSheet
    LastRowC = ws.Range("C" & ws.Rows.Count).End(xlUp).Row
    
    ' 遍历C列从第2行开始的单元格
    For Each cell In ws.Range("C2:C" & LastRowC)
        ' 仅当C列单元格有文本时，为对应A列设置公式
        If cell.Value <> "" Then
            ' 公式检测F列是否包含"V:"或"EC:"，返回True/False
            cell.Offset(0, -2).Formula = "=OR(ISNUMBER(SEARCH(""V:"",F" & cell.Row & ")),ISNUMBER(SEARCH(""EC:"",F" & cell.Row & ")))"
        End If
    Next cell
End Sub

方式2：批量设置公式（适合大量数据，效率更高）

Sub FillDown()
    Dim LastRowC As Long
    Dim ws As Worksheet
    Dim formulaStr As String
    
    Set ws = ActiveSheet
    LastRowC = ws.Range("C" & ws.Rows.Count).End(xlUp).Row
    
    ' 构建公式：先判断C列非空，再检测F列内容，返回True/False
    formulaStr = "=IF(C2<>"""", IF(SUM(COUNTIF(F2, {""*V:*"",""*EC:*""})), TRUE, FALSE), """")"
    
    ' 一次性给A列对应范围设置公式
    ws.Range("A2:A" & LastRowC).Formula = formulaStr
End Sub

关键说明 #

• VBA字符串中需要用两个双引号转义，例如""*V:*""，才能正确生成Excel公式中的单双引号
• 两种方式都确保只有C列包含文本的A列单元格才会有公式，空行的A列保持空白
• 公式返回TRUE或FALSE，完全匹配需求
• 使用Set ws = ActiveSheet让代码更健壮，避免切换工作表时出错

内容的提问来源于stack exchange，提问作者Tobias.Husbands