Question

我有一个电子表格，其中A-B-C-D-E中的数据列用于单个人的数据。然后，对于第二人称数据，在列F-G-H-i-J中重复相同的标题然后，在接下来的5列中再次重复相同的标题，这将持续25组列（因此我有25个人的数据）。这些数据大约有50行。

数据标题如下：

A-名称
  B-DOB
  C级
  d-ACCT＃
  E-T恤尺寸

F-名称
  G-DOB
  H-级
  I-科目＃
  E-T恤尺寸

重复25集

我想移动所有数据，因此只在A-B-C-D-E列中。我希望所有名称都出现在A列，所有DOB出现在B列等等。

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

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

谢谢！

Answer 1

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

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

将多个集合列移动到一组列中

1 个答案: