如何将两个Excel列区域合并粘贴至另一工作表的同一空行？

你的代码会把第二个区域粘贴到新行，核心原因是两次粘贴都从A列的下一个空行起始位置执行。要让两个区域合并到同一行，需要在完成第一个区域的粘贴后，定位到该行的最后一个非空列，从下一列开始粘贴第二个区域的转置数据。

修改后的代码如下：

Sub copyText1()
    Dim targetSheet As Worksheet
    Dim targetRow As Long
    Dim nextCol As Range
    
    ' 绑定目标工作表
    Set targetSheet = ThisWorkbook.Sheets("FinalTestData")
    ' 获取目标工作表的下一个可用行号
    targetRow = targetSheet.Range("A" & targetSheet.Rows.Count).End(xlUp).Offset(1, 0).Row
    
    ' 复制第一个区域，转置粘贴到目标行的A列起始位置
    Range("B8:B18").Copy
    targetSheet.Range("A" & targetRow).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    
    ' 定位目标行的下一个可用列
    Set nextCol = targetSheet.Range("A" & targetRow).End(xlToRight).Offset(0, 1)
    ' 处理工作表为空的特殊情况：若A列无数据，直接从B列开始粘贴
    If nextCol.Column < 2 Then Set nextCol = targetSheet.Range("B" & targetRow)
    
    ' 复制第二个区域，转置粘贴到目标行的下一个可用列
    Range("D6:D49").Copy
    nextCol.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    
    Application.CutCopyMode = False
End Sub

关键修改说明：

• 提前获取固定的targetRow，确保两次粘贴都锁定在同一行
• 通过End(xlToRight)定位第一个区域粘贴后的末尾列，偏移1列得到第二个区域的起始粘贴位置
• 增加空表兼容逻辑，避免首次使用时出现定位错误

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