新手求助：用VBA宏实现Excel中N列跨工作表转置（非内置转置）

嘿，作为Excel VBA新手，能想着不用内置的复制粘贴转置功能来实现需求，这点挺值得肯定的！我给你准备了一段清晰易懂的宏代码，完全靠数组和循环来完成转置，不仅符合你的要求，处理大量数据时效率还比逐个单元格操作高很多。

核心逻辑是：先把源列的批量数据读取到数组里，再通过循环把数组的行和列维度调换，最后把转置后的数组一次性写入目标工作表。这种方法避免了调用Excel内置的转置功能，全程靠VBA原生逻辑实现。

Sub TransposeNColumnWithoutPaste()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim sourceData As Variant
    Dim transposedData As Variant
    Dim lastRow As Long
    Dim i As Long, j As Long
    
    ' 替换成你实际的源工作表和目标工作表名称
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    Set wsTarget = ThisWorkbook.Worksheets("Sheet2")
    
    ' 获取N列（第14列）最后一行有数据的行号
    lastRow = wsSource.Cells(wsSource.Rows.Count, "N").End(xlUp).Row
    
    ' 空数据判断，避免后续报错
    If lastRow < 1 Then
        MsgBox "源列里没有数据哦！", vbExclamation
        Exit Sub
    End If
    
    ' 批量读取源列数据到数组（比逐个单元格读取快N倍）
    sourceData = wsSource.Range("N1:N" & lastRow).Value
    
    ' 定义转置后的数组：原先是1列多行，转置后变成1行多列
    ReDim transposedData(1 To 1, 1 To lastRow)
    
    ' 循环完成转置逻辑
    For i = 1 To lastRow
        transposedData(1, i) = sourceData(i, 1)
    Next i
    
    ' 把转置后的数组一次性写入目标工作表的A1起始位置
    wsTarget.Range("A1").Resize(1, lastRow).Value = transposedData
    
    MsgBox "转置搞定啦！", vbInformation
End Sub

• 修改工作表名称：把代码里的"Sheet1"和"Sheet2"换成你实际使用的工作表名字，比如"销售数据"和"转置结果"。
• 修改源列：如果不是N列，把"N"改成对应的列字母（比如"M"）或者列号（比如13）。
• 修改目标起始位置：如果不想从A1开始写入，把"A1"换成你需要的单元格，比如"B2"。

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器。
2. 在左侧的「工程资源管理器」里右键点击你的工作簿，选择「插入」→「模块」。
3. 把上面的代码粘贴到模块窗口里。
4. 按下F5运行宏，或者回到Excel界面，通过「开发工具」→「宏」选择这个宏运行。

内容的提问来源于stack exchange，提问作者H'mida Farhani