0

我有一个电子表格，其中包含单个人员数据的 ABCDE 数据列。然后，相同的标题在 FGHiJ 列中重复，用于第二个人的数据然后，相同的标题在接下来的 5 列中再次重复，这会持续到 25 组列（所以我有 25 个人的数据） . 这些数据大约有 50 行。

数据头如下：

A-Name
B-DOB
C-Level
D-Acct#
E-Tshirt 尺码

F-Name
G-DOB
H-Level
I-Acct#
E-Tshirt 尺码

重复25组

我想移动所有数据，以便仅在 ABCDE 列中。我希望所有名称都出现在 A 列中，所有 DOB 都出现在 B 列中，等等。

我在这里看到了与此类似的内容，但我不明白如何重新编写代码以适应我的具体情况。

我已经为这个问题苦苦挣扎了 3 年，并且手工复制/粘贴了所有内容，这需要花费数小时。我真的很感激任何关于如何自动化的信息。

谢谢！

4

1 回答 1

0

它需要摆弄，但这是一个开始： 

Sub CopySomeCells()

    With Excel.ThisWorkbook.Sheets("myExample")

         lastcellincolumnA = .Cells(.Rows.Count, 1).End(Excel.xlUp).Row
         lastcellincolumnL = .Cells(.Rows.Count, 12).End(Excel.xlUp).Row

        .Range("G1:L" & lastcellincolumnL).Copy
        .Range("A" & (lastcellincolumnA + 1)).PasteSpecial Excel.xlValues

    End With

End Sub
于 2012-06-26T20:11:23.330 回答