Question

我的表格样本

A 1 2 3 4 5 6

B 2 3 7 8 9 5

C 4 2 7 9 5 0

我创建了名为“A”，“B”，“C”（使用VBA）的表格，但我无法实现的是匹配表格名称A到行A和复制值（1,2,3,4），5,6），转置它并将其粘贴在表A中。我有一张巨大的表，所以我试图循环我的代码，以便它通过A，B，C等读取。任何帮助将不胜感激。感谢

Answer 1

像

这样的东西

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

要粘贴的当前工作表名称将显示为“工作表A”，“工作表B”等。如果您需要“A”，“B”等，则删除“工作表”＆amp;从上面

将转贴粘贴从1个工作表复制到另一个工作表，匹配工作表名称

1 个答案: