VBA嵌套循环问题：将A列长列表按45行拆分至多列

你的代码核心问题是循环嵌套逻辑错误，还多做了不必要的双层循环，导致每组数据都被重复粘贴到所有目标列，另外循环结束的Next顺序也写反了，进一步打乱了执行逻辑。

问题拆解 #

1. 原代码外层循环i（控制分组）、内层循环j（控制目标列），意味着每处理一组数据，就会把它粘贴到所有目标列，完全没实现“一组对应一列”的需求。
2. Next i和Next j顺序颠倒，属于语法逻辑错误，会导致循环执行顺序混乱。
3. 使用Select和Selection既低效又容易因工作表焦点变化出错，建议直接操作单元格区域。

修正后的代码 #

Sub SplitListToColumns()
    Dim targetCols As Variant
    targetCols = Array("J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
    
    Dim i As Integer
    ' 循环每一组，对应到目标列数组的对应索引
    For i = LBound(targetCols) To UBound(targetCols)
        ' 源数据区域：第i组的45行，起始行1+45*i，结束行45+45*i（修正原代码多选中一行的问题）
        Range("A" & 1 + 45 * i & ":A" & 45 + 45 * i).Copy _
            ' 目标区域：对应列的第3行到第47行（正好45行）
            Destination:=Range(targetCols(i) & "3:" & targetCols(i) & "47")
    Next i
End Sub

关键改动说明 #

• 去掉多余的双层循环，用单层循环直接让第i组数据对应数组中第i个目标列，实现一一匹配。
• 修正源数据结束行：原代码46 + 45*i会选中46行（比如i=0时是A1:A46），改成45 + 45*i正好是45行，符合分组要求。
• 用Copy Destination:=直接指定目标区域，避免Select和Selection的冗余操作，代码更高效稳定。
• 重命名变量和过程名，提升代码可读性（比如把a改成targetCols，COPY改成SplitListToColumns）。

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