Rax's questions

我有一系列列，其中大部分是空白单元格。我正在尝试复制这些单元格是否包含文本。为此，我编写了以下代码，该代码适用于第一行。如何对每一行重复此操作，直到最后使用的行？

Dim SrchRng As Range, cel As Range
Set SrchRng = Sheet1.Range("BI2:CZ2")
        For Each cel In SrchRng
        If cel.Value <> "" Then
        Sheet1.Range("AH2").Value = cel.Value
    End If
Next cel

我在 B 到 H 列中的值为“TRUE”。如果 B:H 范围内的任何单元格包含“FALSE”，否则“TRUE”，我希望我的宏在 A 列中返回“FALSE”。直到最后一行填满为止。任何帮助表示赞赏！

我尝试了下面的代码，该代码适用于一行，但如何对所有填充的行执行此操作？

Sub Test2()

Dim foundRng As Range

Set foundRng = Range("B2:H2").Find("FALSE")

If foundRng Is Nothing Then
    Range("A2").Value = "TRUE"
Else
    Range("A2").Value = "FALSE"
End If
End Sub