主题：严禁单元格为空，怎么办？

If e.OldRange.RowSel <> e.NewRange.RowSel '如果选择的是不同的行
    If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then '而且原来选择的是一个有效的数据行
        Dim r As Row = e.Table.Rows(e.OldRange.Rowsel) '获得原来选择的行
        If r.IsNull("编号") Then  '如果编号为空
            e.Cancel = True
        End If
    End If
End If

上面的代码是帮助里面的