Excel VBA检查特定列中的每一行

我想检查列

F

中的每一行是否有任何值。大部分是空的，但是，如果里面有任何字符，我需要检查字符串的第一个字符是

A

、

B

还是

C

，然后根据第一个字符执行操作。我如何执行此操作？目前我只找到了一些类似这样的参考资料代码，这对我正在做的工作并没有真正的帮助。对于循环通过每一行进行检查，我使用此代码

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

        i = i + 1
Wend

但这只检查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

请尝试以下代码：

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

---

在这种情况下，

Select Case

可能有用，而不是多个

If

语句。在这种情况下，

Select Case

可能有用，而不是多个

If

语句。