VBA代码修改需求：多文件数据按列而非按行粘贴

你的判断没错，核心就是把原来基于行的定位逻辑改成基于列的，不需要用什么新命令，调整几个关键变量和定位代码就行。

原来的代码每次都往A列的最后一行粘贴，现在要改成每个文件对应新列，关键修改点：

• 新增一个变量追踪当前要粘贴的目标列
• 把找最后一行的代码替换成按列顺序递增的逻辑
• 调整粘贴位置的列参数

修改后的完整代码：

Option Explicit

Sub CopyDataFromDump()
    Dim SourceFolder As String
    Dim Wb As Workbook
    Dim CopyFromSheet As Worksheet
    Dim PasteToSheet As Worksheet
    Dim TargetCol As Long ' 新增：记录当前目标列
    
    SourceFolder = "" ' 填写你的文件夹路径

    Dim oFSO As FileSystemObject
    Dim oFolder As Folder
    Dim oFile As File

    Set oFSO = New FileSystemObject
    Set oFolder = oFSO.GetFolder(SourceFolder)
    
    TargetCol = 1 ' 初始从第1列开始粘贴

    For Each oFile In oFolder.Files
        Set Wb = Workbooks.Open(oFile, , Format:=5)
        Set CopyFromSheet = Wb.Sheets(1)
        Set PasteToSheet = ThisWorkbook.Sheets(1)

        CopyFromSheet.UsedRange.Copy
        
        ' 直接从目标列的第1行开始粘贴
        PasteToSheet.Cells(1, TargetCol).PasteSpecial xlPasteValues

        Wb.Close False
        TargetCol = TargetCol + 1 ' 下一个文件对应下一列
    Next oFile
End Sub

关键修改说明： #

1. 新增TargetCol变量，初始值设为1，每次循环后自动+1，确保每个文件对应新列
2. 删除了原来的LastRow相关代码，因为现在不需要找行的位置，直接从列的第一行开始粘贴
3. 粘贴位置从Cells(LastRow, 1)改成Cells(1, TargetCol)，把固定的列1换成动态的目标列

如果你的源文件数据有表头，或者希望每个文件的数据从目标列的第一个空行开始（而不是第一行），可以调整粘贴行的位置，但根据你的需求描述，上面的代码已经满足「文件1到col1、文件2到col2」的要求。

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