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

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", vb***mation, "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", vb***mation, "Kutools for Excel" Target.ClearContents End If End If End If End Sub

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！