如何防止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是您不希望在其中保留任何空白單元格的單元格範圍。 請根據需要更改範圍。

從現在開始，當您跳過空白單元格並直接在指定範圍內填寫下一個單元格時，您將獲得一個 Excel的Kutools 對話框如下圖所示。

---

相關文章:

• 如何防止數據輸入Excel中工作表的特定單元格？
• 如何防止在Excel中選擇多個工作表？
• 如何防止某個工作表在Excel中被刪除？
• 如何防止在Excel中刪除特定單元格內容？