Excel 使用vba中的转置将数据从一个选项卡传输（复制和粘贴）到另一个选项卡

首先，我是VBA新手。基本上，我希望在一个文档中将数据从一个选项卡传输到另一个选项卡，并将其转置粘贴

这里的代码允许我在提交第一个人的数据后移到下一行

Sub Submit()

    Dim rngSource As Range
    Dim rngTarget As Range
    Dim iRow As Integer
    'tranferring data between macro
    Set rngSource = Worksheets("Checklist").Range("b1:b5")

    'figuring out the empty row
    iRow = Worksheets("Central Tracker").Cells(Rows.Count, 1).End(xlUp).Row + 1
    Set rngTarget = Worksheets("Central Tracker").Range("A" & iRow)
    rngSource.Copy Destination:=rngTarget.PasteSpecial Paste:= xlPasteValues


End Sub

基本上，我想添加转置粘贴选项，但我不知道如何才能做到这一点。我将非常感谢你的支持。谢谢

只需使用转置：=True

---

嗨，多利安，还是不行。在转置时，我得到一个编译错误：语法错误。@cyiz在我编辑我的答案之前，请试一试。等待你的feedbacks@Cyizere如果这个问题解决了，我可以请你接受这个答案吗？点击

 Dim rngSource As Range
 Dim rngTarget As Range
 Dim iRow As Integer
 'tranferring data between macro
 Set rngSource = Worksheets("Checklist").Range("b1:b5")

'figuring out the empty row
iRow = Worksheets("Central Tracker").Cells(Rows.Count, 1).End(xlUp).Row + 1
Set rngTarget = Worksheets("Central Tracker").Range("A" & iRow)
rngSource.Copy 
rngTarget.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True