VBA从工作表%1复制列并将粘贴转置到工作表%2的行中

Sub CopyAndTransposeColumn()
    Dim sourceSheet As Worksheet
    Dim destSheet As Worksheet
    Dim sourceRange As Range
    Dim destRange As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = Worksheets("%1")
    Set destSheet = Worksheets("%2")
    
    ' 设置源范围，即要复制的列
    Set sourceRange = sourceSheet.Range("A:A") ' 在此处设置要复制的列的范围
    
    ' 设置目标范围，即要粘贴到的行
    Set destRange = destSheet.Range("1:1") ' 在此处设置要粘贴到的行的范围
    
    ' 复制并转置列
    sourceRange.Copy
    destRange.PasteSpecial Paste:=xlPasteAll, Transpose:=True
    
    ' 清除剪贴板中的内容
    Application.CutCopyMode = False
End Sub