请求实现批量行处理的VBA宏：依据B:H列内容设置A列布尔值

没问题！你现在的代码已经搞定了单行的判断逻辑，只需要加个循环遍历所有有数据的行，就能实现批量处理啦。下面给你两种实用的实现方式，按需选择：

方法一：基于你现有代码扩展循环 #

这种方式延续你原来的Find思路，遍历从第2行到最后一行的所有数据行：

Sub Test2_Batch()
    Dim lastRow As Long
    Dim currentRow As Long
    Dim foundRng As Range
    
    ' 获取最后一行有数据的行号（这里以A列为准，若数据仅在B:H，也可改成Columns("B").Find...）
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 从第2行开始循环到最后一行
    For currentRow = 2 To lastRow
        Set foundRng = Range("B" & currentRow & ":H" & currentRow).Find("FALSE")
        
        If foundRng Is Nothing Then
            Range("A" & currentRow).Value = "TRUE"
        Else
            Range("A" & currentRow).Value = "FALSE"
        End If
    Next currentRow
End Sub

方法二：用CountIf函数提升效率 #

如果你的数据量比较大，这种方法会更快——通过统计每行中"FALSE"的数量来判断，不用逐个查找单元格：

Sub Test2_Efficient()
    Dim lastRow As Long
    Dim currentRow As Long
    
    lastRow = Cells(Rows.Count, "B").End(xlUp).Row ' 用B列判断最后一行更准确，因为数据主体在B:H
    
    For currentRow = 2 To lastRow
        ' 统计当前行B:H中"FALSE"的个数
        If WorksheetFunction.CountIf(Range("B" & currentRow & ":H" & currentRow), "FALSE") > 0 Then
            Range("A" & currentRow).Value = "FALSE"
        Else
            Range("A" & currentRow).Value = "TRUE"
        End If
    Next currentRow
End Sub

小提示 #

如果你的单元格里是真正的布尔值（不是文本格式的"TRUE"/"FALSE"），只需要把代码里的"FALSE"改成False（去掉引号）就可以啦。

备注：内容来源于stack exchange，提问作者Rax