VBA按行拆分数据写入独立工作簿时出现缺少操作符语法错误

报错触发点 #

• “缺少操作符”属于VBA编译阶段的语法解析错误，常见触发原因：
  • 代码从网页/聊天工具复制时混入了不可见的全角字符，比如比较符<前后夹了全角空格、半角运算符被替换为全角符号，VBA无法识别合法的表达式逻辑
  • 原代码全局开启On Error Resume Next屏蔽错误，会把参数类型不匹配、表达式截断的问题统一引导到编译提示，放大了语法错误的表象
• 原代码存在逻辑偏差：设计目标是把拆分结果放到独立工作簿，但代码实现是在当前工作簿内新增工作表，和实际需求不符

核心修正内容 #

• 移除全局错误屏蔽，增加操作中断的判断逻辑，避免脚本无响应
• 修正行数计算逻辑：原代码混用选中区域的相对行数和工作表绝对行号，当选中区域不是从工作表第1行开始时，会计算出错误的剩余行数
• 替换同工作簿新增表的逻辑为新建独立工作簿，匹配拆分目标
• 补充所有变量的显式声明，减少隐式类型转换带来的解析异常

修正后可直接运行的代码 #

Sub SplitData2()
    Dim WorkRng As Range
    Dim xRow As Range
    Dim SplitRow As Integer
    Dim i As Long
    Dim ResizeCount As Long
    Dim totalRows As Long
    
    ' 选择拆分源区域
    On Error Resume Next
    Set WorkRng = Application.InputBox(prompt:="请选择要拆分的源数据区域", Title:="选择拆分区域", Type:=8)
    On Error GoTo 0
    If WorkRng Is Nothing Then
        MsgBox "未选择有效区域，退出脚本"
        Exit Sub
    End If
    
    ' 设置拆分行数
    SplitRow = Application.InputBox(prompt:="请输入每个拆分块的行数", Title:="设置拆分行数", Default:=5, Type:=1)
    If SplitRow <= 0 Then
        MsgBox "拆分行数必须为正整数，退出脚本"
        Exit Sub
    End If
    
    ' 初始化拆分起点
    Set xRow = WorkRng.Rows(1)
    totalRows = WorkRng.Rows.Count
    Application.ScreenUpdating = False
    
    ' 循环拆分块
    For i = 1 To totalRows Step SplitRow
        ' 适配最后一段的剩余行数
        If totalRows - i + 1 < SplitRow Then
            ResizeCount = totalRows - i + 1
        Else
            ResizeCount = SplitRow
        End If
        
        ' 复制并粘贴到独立工作簿
        xRow.Resize(ResizeCount).Copy
        Workbooks.Add
        ActiveSheet.Range("A1").PasteSpecial
        ' 偏移到下一个拆分块的起始行
        Set xRow = xRow.Offset(SplitRow)
    Next i
    
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    MsgBox "拆分完成，共生成 " & WorksheetFunction.RoundUp(totalRows / SplitRow, 0) & " 个独立工作簿"
End Sub

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