VB检查行是否有列 - VBA

在VBA中，我们经常需要检查某一行是否有值或某一列是否有值。这可以使用IsEmpty()和IsBlanck()函数来实现。以下是一些示例代码：

检查行是否有值

Sub CheckRowHasValue()
    Dim row As Long
    row = 3 '需要检查的行号
    For i = 1 To Columns.Count '从第一列开始遍历
        If Not IsEmpty(Cells(row, i)) Then
            MsgBox "第 " & row & " 行有值！"
            Exit Sub
        End If
    Next i
    MsgBox "第 " & row & " 行没有值！"
End Sub

该代码使用IsEmpty()函数遍历第三行的每一列，如果发现有值就显示一个消息框并退出子程序。如果没有找到任何值，则显示一个不同的消息框。

检查列是否有值

Sub CheckColumnHasValue()
    Dim col As Long
    col = 2 '需要检查的列号
    For i = 1 To Rows.Count '从第一行开始遍历
        If Not IsEmpty(Cells(i, col)) Then
            MsgBox "第 " & col & " 列有值！"
            Exit Sub
        End If
    Next i
    MsgBox "第 " & col & " 列没有值！"
End Sub

该代码使用IsEmpty()函数遍历第二列的每一行，如果发现有值就显示一个消息框并退出子程序。如果没有找到任何值，则显示一个不同的消息框。

检查列是否有空单元格

Sub CheckColumnHasBlank()
    Dim col As Long
    col = 3 '需要检查的列号
    For i = 1 To Rows.Count '从第一行开始遍历
        If IsEmpty(Cells(i, col)) Then
            MsgBox "第 " & col & " 列有空单元格！"
            Exit Sub
        End If
    Next i
    MsgBox "第 " & col & " 列没有空单元格！"
End Sub

该代码使用IsBlank()函数遍历第三列的每一行，如果发现有空单元格就显示一个消息框并退出子程序。如果没有找到任何空单元格，则显示一个不同的消息框。