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

假设您正在工作表的A1：B10范围内创建一个表，并且需要防止空白单元格出现在该表范围内，如何实现？ 本文介绍了一种方法，如果在编辑时某个表范围内出现空白条目，则会自动弹出提示框。 请逐步按照本文中的方法。

通过使用VBA代码防止单元格中的空白或丢失条目

---

通过使用VBA代码防止单元格中的空白或丢失条目

A1：B10是您需要在其中创建表的范围，而A1，B1包含表的标题，如下图所示。 请执行以下操作，以防止在创建表时在A2：B10范围内出现空白或丢失的条目。

1.在不允许有一定范围内的空白条目的工作表中，右键单击“工作表”选项卡，然后单击“确定”。 查看代码 从右键单击菜单中。

2。 在里面 Microsoft Visual Basic应用程序 窗口，将下面的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中删除特定单元格内容？