将 Transpose 粘贴从 1 个作品sheet 复制到另一个,匹配 sheet 名称

Copy Transpose paste from 1 worksheet to another , matching sheet name

我有一个 sheet

的样品

A​​ 1 2 3 4 5 6

B 2 3 7 8 9 5

C 4 2 7 9 5 0

我创建了 Sheets,名称为 "A"、"B"、"C"(使用 VBA),但是我无法实现匹配Sheet 将 A 命名为 A 行并复制值 (1,2,3,4,5,6),将其转置并粘贴到 sheet A 中。我有一个巨大的 sheet所以我试图循环我的代码,以便它读取 A、B、C 等等。任何帮助将不胜感激。 谢谢

类似

With ActiveSheet
    For Each cell In .Range("A1:" & .Range("A1").End(xlDown).Address)
        .Range(.Range(cell.Address).Offset(0, 1).Address, .Range(cell.Address).End(xlToRight).Address).Copy
        Sheets("Sheet " & cell.Value).Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
    Next
End With

要粘贴的当前 sheet 个名称将显示为 "Sheet A"、"Sheet B" 等 如果您需要 "A"、"B" 等,则删除 "Sheet " & 从上面