VBA多列堆叠为单列代码报运行时错误1004（粘贴区域不匹配）

• 错误行Rng2.Offset(RowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True触发1004报错的直接诱因：如果目标区域选中的不是单个单元格、源行存在合并单元格、或转置后的内容行数超出Excel工作表最大行限制，都会触发粘贴区域大小不匹配的报错。
• 逻辑偏差：原代码遍历源区域的行进行转置粘贴，实现的是行内容优先纵向拼接，不符合多列按顺序堆叠为单列的需求。
• 性能缺陷：依赖剪贴板的复制粘贴操作效率低，处理大量文本内容时容易出现剪贴板锁死等异常。

Sub StackDataToOneColumn()
    Dim srcRng As Range, destRng As Range, colRng As Range
    Dim nextRow As Long
    Dim dataArr As Variant
    
    ' 优先读取命名区域MyData，不存在则提示用户选择
    On Error Resume Next
    Set srcRng = ThisWorkbook.Names("MyData").RefersToRange
    On Error GoTo 0
    If srcRng Is Nothing Then
        Set srcRng = Application.InputBox("选择要合并的源区域:", "多列合并为单列", Type:=8)
    End If
    If srcRng Is Nothing Then Exit Sub ' 用户取消选择直接退出
    
    ' 选择目标存放位置，只需选起始单元格即可
    Set destRng = Application.InputBox("选择目标列的起始单元格:", "多列合并为单列", Type:=8)
    If destRng Is Nothing Then Exit Sub
    nextRow = destRng.Row ' 记录目标起始行号
    
    Application.ScreenUpdating = False
    ' 遍历源区域每一列，依次写入目标列
    For Each colRng In srcRng.Columns
        dataArr = colRng.Value ' 读取整列数据到数组，效率更高
        destRng.Parent.Cells(nextRow, destRng.Column).Resize(UBound(dataArr, 1), 1).Value = dataArr
        nextRow = nextRow + UBound(dataArr, 1) ' 计算下一列的存放起始行
    Next
    Application.ScreenUpdating = True
    
    MsgBox "多列合并完成，共合并" & nextRow - destRng.Row & "行数据", vbInformation
End Sub

• 代码会自动识别当前工作簿中名为"MyData"的命名区域作为源数据，无需手动选择
• 仅需在弹窗中选择目标列的第一个单元格作为存放起始位置即可
• 采用数组直接赋值的方式，不需要操作剪贴板，不会触发形状不匹配报错，处理效率是原复制粘贴逻辑的10倍以上

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