Excel VBA批量复制多列至单列并依次向右粘贴问题求助

原代码错误点 #

第一段代码问题 #

• 逻辑完全偏离需求：循环中仅复制单个单元格O&i到O5:O60，再粘贴到I5:I60，既没有遍历目标列（O到YM），也没有正确处理复制范围。
• 循环变量i的范围（1到1000）与数据行范围（5到60）不匹配，完全不符合需求逻辑。

第二段代码问题 #

• 变量赋值错误：integer类型变量不能用Set赋值，直接用=即可。
• 范围选取错误：Offset(endrow - startrow,0)仅选中了单个单元格（O60），而非O5:O60整段数据。
• 缺少循环逻辑：仅执行一次复制操作，没有遍历O到YM的所有列。
• 粘贴位置固定：始终粘贴到I5:I60，没有定位到右侧空白列。
• 语法错误：ExitSub应为Exit Sub（空格分隔）。

修正后的VBA代码 #

根据需求（将O到YM列的5-60行数据，逐个复制到I列右侧的空白列，每列对应粘贴），提供以下代码：

Sub CopyColumnsToRightOfI()
    Dim ws As Worksheet
    Dim sourceCol As Integer
    Dim targetCol As Integer
    Const startRow As Integer = 5
    Const endRow As Integer = 60
    Const firstSourceCol As Integer = 15 'O列
    Const lastSourceCol As Integer = 637 'YM列，可根据实际调整

    Set ws = ThisWorkbook.Sheets("Inputs")
    targetCol = 9 'I列

    '遍历所有源列
    For sourceCol = firstSourceCol To lastSourceCol
        '复制当前源列的5-60行数据
        ws.Range(ws.Cells(startRow, sourceCol), ws.Cells(endRow, sourceCol)).Copy
        '粘贴到目标列的对应行
        ws.Cells(startRow, targetCol).PasteSpecial Paste:=xlPasteValues
        '目标列右移一位，准备下一次粘贴
        targetCol = targetCol + 1
    Next sourceCol

    '清除剪贴板，避免弹窗
    Application.CutCopyMode = False
End Sub

代码说明 #

• 定义了源列的起始（O列=15）和结束（YM列=637），可根据实际列数调整lastSourceCol。
• 从I列（第9列）开始，每复制一列源数据，目标列自动右移一位，确保粘贴到右侧空白列。
• 使用PasteSpecial xlPasteValues仅粘贴数值，避免格式干扰。
• 最后清除剪贴板，防止Excel弹出粘贴提示。

若需求是纵向合并到I列（所有数据依次追加到I列下方） #

如果你的实际需求是把所有列的5-60行数据依次放到I列的下方（而非横向排列），可使用以下代码：

Sub CopyColumnsToIVertically()
    Dim ws As Worksheet
    Dim sourceCol As Integer
    Dim targetRow As Integer
    Const startRow As Integer = 5
    Const endRow As Integer = 60
    Const firstSourceCol As Integer = 15 'O列
    Const lastSourceCol As Integer = 637 'YM列

    Set ws = ThisWorkbook.Sheets("Inputs")
    targetRow = startRow '从I5开始

    For sourceCol = firstSourceCol To lastSourceCol
        '复制当前源列数据
        ws.Range(ws.Cells(startRow, sourceCol), ws.Cells(endRow, sourceCol)).Copy
        '粘贴到I列的目标行
        ws.Cells(targetRow, 9).PasteSpecial Paste:=xlPasteValues
        '目标行下移（60-5+1=56行）
        targetRow = targetRow + (endRow - startRow + 1)
    Next sourceCol

    Application.CutCopyMode = False
End Sub

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