excel - 选择列直到找到一个值

Question

我想找到 Visual Basic 命令来选择非特定数量的列。例如，我有一个连续的值列表，我必须从第一列中选​​择它们，直到找到“5”。我怎样才能做到这一点？

Answer 1

您可以快速执行此操作 find Find，它还通过测试 rng1 是否存在 post find 来启用“未找到”结果

在事件表的第 1 行中搜索变量 strfind 和从 A 列到找到的值的高亮

Sub QuickFind()
    Dim rng1 As Range
    Dim strFind As String
    strFind = "5"
    Set rng1 = ActiveSheet.Rows(1).Find(strFind, , xlValues, xlWhole)
    If rng1 Is Nothing Then
        MsgBox strFind & " not found"
    Else
        Range(rng1, rng1.End(xlToLeft)).Activate
    End If
End Sub