VBA проверяет каждую строку в определенном столбце

Question

Я хочу проверить каждую строку в столбце F, есть ли какое-либо значение внутри.Большинство из них пустые, однако, если внутри есть какие-либо символы, мне нужно проверить, является ли первый символ строки A, B или C, какие действия будут предприняты в зависимости от первого символа.Как я могу выполнить это?В настоящее время я нашел только такой код ресурсов, который не очень полезен для того, что я делаю.Также для цикла по каждой строке для проверки, я использую этот код

While Cells(8 + i, 1).Value <> ""

        i = i + 1
Wend

и для получения первого найденного символа строки

Sub FirstChar()
    Dim xlString As String
    Dim xlFirstChar As String

    xlString = "01999102477490"

    xlFirstChar = Left$(xlString, 1)

    MsgBox xlFirstChar
End Sub

Но это проверяет только 1 ячейку ....

Answer 1

Попробуйте этот код:

Sub CheckFirstChar()
    Dim lastRow As Long, i As Long
    ' Find last cell in column F
    lastRow = Cells(Rows.Count, 6).End(xlUp).Row

    For i = 1 To lastRow
        firstChar = Left(Cells(i, 6).Value, 1)
        If firstChar = "A" Or firstChar = "B" Or firstChar = "C" Then
            ' Take some actions
        End If
    Next
End Sub