Выберите столбцы, пока не найдете значение

Question

Я хотел бы найти команду Visual Basic для выбора неспецифического числа столбцов.Например, у меня есть список значений в строке, и я должен выбрать их из первого столбца, пока не найду «5».Как я могу это сделать?

Answer 1

Это можно сделать быстро, чтобы найти Find, что также позволяет получить результат «не найден», проверив, существует ли rng1 после поиска

для поиска в строке 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

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