数据自动校验程序 是一段用于检查数据正确性的程序代码。它能够通过编写特定的规则和逻辑，自动检查数据是否符合预期的格式、逻辑和约束条件。当数据通过这些校验时，程序会给出提示或自动修正错误，从而确保数据的准确性和可靠性。
例如，以下是一个简单的VBA程序，用于检查Excel工作表中姓名列的数据：
```vba
Sub CheckNames（）
Dim ws As Worksheet
Dim cell As Range
Set ws = ThisWorkbook.Sheets（"Sheet1"） ' 假设咱们在Sheet1操作
' 遍历姓名列，假设姓名在第一列
For Each cell In ws.Range（"A2:A" & ws.Cells（ws.Rows.Count, 1）.End（xlUp）.Row）
' 这里咱们简单校验一下，姓名不能为空，且不能包含数字
If cell.Value = "" Or InStr（cell.Value, "0123456789"） > 0 Then
MsgBox "姓名有误：" & cell.Value, vbExclamation
End If
Next cell
End Sub
```
这个程序会遍历姓名列，如果发现有空白单元格或者包含数字的单元格，就会弹出一个提示框，告诉你哪个姓名有问题。
另一个例子是检查选中的单元格中是否有负数：
```vba
Sub CheckData（）
Dim cell As Range
For Each cell In Selection ' 假设咱们选中了一片区域
If cell.Value < 0 Then
MsgBox "发现负数啦!在 " & cell.Address
End If
Next cell
End Sub
```
这个程序会检查选中的单元格，如果发现负数，就会弹出一个提示框，显示负数的位置。
数据自动校验程序的应用场景非常广泛，可以用于各种类型的数据检查和验证，例如在数据库管理、表单提交、软件开发等领域。通过使用自动校验程序，可以大大提高数据处理的效率和准确性，减少人工错误，确保数据的可靠性。