Question

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

Answer 1

你可以快速找到Find，这也可以通过测试rng1在查找后是否存在来启用“未找到”结果

在活动表的第1行中搜索变量strfind，并从列A中搜索higlight到找到的值

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

Answer 2

试试这个：

Public Function Search(row As Integer) As Integer
    Dim col As Integer
    col = 1

    While ActiveSheet.Cells(row, col) <> "5"
      col = col + 1
    Wend
    Search = col
End Function

选择列直到找到值

2 个答案: