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

VBA检查特定列中的每一行

1 个答案: