主页 / computer / 问题 / 1789855
Accepted
Rax
Asked: 2023-06-19 13:44:49 +0800 CST

VBA在一系列列中查找特定文本

  • 772

我在 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
vba

1 个回答

  1. Best Answer

    我修改了你的代码并包括：

    • 用于查找 A 列最后一个非空单元格的变量：Dim lastRow As Long。
    • 然后，使用循环检查 B:H 范围的值并将结果显示在 A 列的相应行上。
    Sub Test2()

    Dim foundRng As Range
    Dim lastRow As Long

    'Find the last row with data of column A -- A is indicated with 1
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    'Loop from row 2 to the last row
    For counter = 2 To lastRow
        'Check the value based on the row
        Set foundRng = Range("B" & counter & ":H" & counter).Find("FALSE")
        
        If foundRng Is Nothing Then
            Worksheets("Sheet1").Range("A" & counter).Value = "TRUE"
        Else
            Worksheets("Sheet1").Range("A" & counter).Value = "FALSE"
        End If
        
    Next counter
    
End Sub
    • 1

相关问题