如何防止 Excel 中的单元格出现空白或缺失条目？

如果您正在工作表的 A1:B10 区域中创建表格，并希望确保此区域中没有留空单元格，您可以实施一种解决方案，在编辑时如果检测到空白条目会自动显示提示。请按照以下逐步指南操作，以防止指定表格区域中的空白或缺失条目。

使用 VBA 代码防止单元格中出现空白或缺失条目

使用 VBA 代码防止单元格中出现空白或缺失条目

A1:B10 区域被指定为您的表格范围，其中 A1 和 B1 作为表格标题，如下方截图所示。请按照所列步骤操作，以在填充表格时防止 A2:B10 范围内出现空白或缺失条目。

1. 在您希望防止特定范围内出现空白条目的工作表中，右键单击工作表标签，然后从右键菜单中点击 查看代码。

2. 在 Microsoft Visual Basic for Applications 窗口中，将以下 VBA 代码复制并粘贴到代码窗口中。参见截图：

VBA 代码：防止单元格范围内的空白或缺失条目

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub
    Dim isect As Range
    On Error Resume Next
    Set isect = Application.Intersect(Target, Range("A2:B10"))
    
    If Not (isect Is Nothing) Then
        If Target.Column = 1 Then
            If Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0 Then
                MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
                Target.ClearContents
            End If
        Else
            If (Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0) Or (Len(Target.Value) > 0 And Len(Target.Offset(0, -1).Value) = 0) Then
                MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
                Target.ClearContents
            End If
        
        End If
    End If
End Sub

注意：在 VBA 代码中，A2:B10 是您不希望留有任何空白单元格的区域。请根据需要更改该区域。

从现在开始，如果您跳过指定范围内的某个空白单元格并填写下一个单元格，将会弹出一个 Kutools for Excel 对话框，如下所示。

相关文章：

• 如何防止在 Excel 工作表的特定单元格中输入数据？
• 如何防止在 Excel 中选择多个工作表？
• 如何防止在 Excel 中删除某个特定工作表？
• 如何防止在 Excel 中删除特定单元格内容？