如何使用VBA遍历Excel表格多行多列实现动态数据校验

原代码固定锚定D列起始位置，靠逐行偏移选中单元格实现校验，仅支持单列校验，且运行时如果手动点选其他单元格容易出现校验错位，也无法自动识别后续新增的列、行数据。调整后代码支持动态识别工作表内的有效数据范围，覆盖多列校验需求：

Sub checken()
    Dim ws As Worksheet
    Dim checkRng As Range, cell As Range
    Dim startRow As Long, startCol As Long
    Dim lastCol As Long, lastRow As Long
    
    ' 指定校验所在工作表，当前为活动工作表，可按需替换为Sheets("你的表名")
    Set ws = ActiveSheet
    ' 校验起始行，和原逻辑保持一致从第4行开始
    startRow = 4
    ' 校验起始列，原逻辑从D列开始对应值为4，从A列开始则设为1
    startCol = 4
    
    ' 动态获取当前表已使用区域的最大列号、最大行号，自动适配后续新增的列和行
    lastCol = ws.UsedRange.Columns(ws.UsedRange.Columns.Count).Column
    lastRow = ws.UsedRange.Rows(ws.UsedRange.Rows.Count).Row
    
    ' 拼接得到完整的待校验区域
    Set checkRng = ws.Range(ws.Cells(startRow, startCol), ws.Cells(lastRow, lastCol))
    
    ' 遍历区域内所有单元格
    For Each cell In checkRng
        ' 跳过空单元格
        If Not IsEmpty(cell.Value) Then
            If Not IsNumeric(cell.Value) Then
                ' 错误提示同步标注列标、行号，方便定位问题
                MsgBox "列" & Split(cell.Address, "$")(1) & " 行" & cell.Row & " 必须输入数字"
            End If
        End If
    Next cell
End Sub

可选自定义调整 #

• 若不需要校验范围内全量列，仅校验指定列（比如仅校验D、F、H三列），可在数值判断逻辑前增加列号过滤规则，跳过不需要校验的列即可
• 若觉得每碰到一个错误就弹窗中断操作体验差，可以定义一个字符串变量存储所有错误位置信息，全部遍历完成后一次性弹窗展示所有问题
• 若后续校验起始位置变化，直接修改startRow、startCol的赋值即可，无需调整其他遍历逻辑

内容的提问来源于stack exchange，提问作者FMT