需求：基于J列数值拆分Excel I-L列数据（附问题VBA代码）

原代码核心问题 #

• 条件判断偏差：需求触发条件是J列数值超过5，原代码判断>4.13会误将所有非默认关闭值纳入，不符合要求
• 单元格范围语法错误：Range("I, K, L" & x)是无效写法，正确的整行I-L列范围应为Range("I" & x & ":L" & x)
• 缺失状态切换逻辑：未区分J列是首次进入开启状态（需新建列）还是持续开启状态（继续在当前列粘贴）
• 变量类型溢出：9000+行数据用Integer类型会超出范围，需改用Long
• 未实现最终替换原I-L列的需求

修正后的VBA代码 #

Sub SplitColumns()
    Dim currentRow As Long
    Dim targetRow As Long
    Dim targetCol As Long
    Dim lastRow As Long
    Dim isSystemActive As Boolean ' 标记当前是否处于系统开启状态
    
    ' 获取J列最后一行数据（避免空行导致统计错误）
    lastRow = Cells(Rows.Count, "J").End(xlUp).Row
    ' 初始化：从原I列的下一列（第13列，即M列）开始创建新列
    targetCol = 13
    targetRow = 1
    isSystemActive = False
    
    ' 遍历所有行（第1行按表头处理）
    For currentRow = 1 To lastRow
        ' 表头直接复制到新列
        If currentRow = 1 Then
            Range("I1:L1").Copy Destination:=Cells(targetRow, targetCol)
            targetRow = targetRow + 1
            Continue For
        End If
        
        ' 判断当前J列值的状态
        If Cells(currentRow, "J").Value > 5 Then
            ' 从关闭切换到开启状态，启用新列
            If Not isSystemActive Then
                isSystemActive = True
                targetRow = 2 ' 表头已复制，从第2行开始粘贴数据
                targetCol = targetCol + 4 ' 新列间隔4列（对应I-L四列宽度）
                ' 复制表头到新列
                Range("I1:L1").Copy Destination:=Cells(1, targetCol)
            End If
            ' 复制当前行I-L列数据到目标列
            Range("I" & currentRow & ":L" & currentRow).Copy Destination:=Cells(targetRow, targetCol)
            targetRow = targetRow + 1
        Else
            ' 系统回到关闭状态，重置标记
            isSystemActive = False
        End If
    Next currentRow
    
    ' 完成拆分后替换原I-L列
    Columns("I:L").Delete
    ' 将所有拆分后的列移回原I列起始位置
    Columns(targetCol - (targetCol - 13) / 4 * 4 & ":" & Columns(Columns.Count).End(xlToLeft).Column).Cut Destination:=Columns("I")
End Sub

代码说明 #

1. 状态跟踪：用isSystemActive变量记录系统状态，仅在从关闭切换到开启时新建目标列，避免重复创建
2. 范围安全：通过Cells(Rows.Count, "J").End(xlUp).Row准确获取J列最后一行，避免空行导致的数据遗漏
3. 结构一致性：每个新列都会复制原I-L列的表头，保证拆分后的数据结构统一
4. 最终替换：删除原I-L列后，将所有拆分完成的列移回原位置，完全匹配需求中的替换要求
5. 变量兼容：行号变量全部改用Long类型，适配9000+行的大数据量，避免溢出错误

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