根据名称和date将数据从一张纸复制到另一张

所以我有两张床单 两者都是花名册。 一个有date的顶部，左侧名称。 另一个则相反。 我需要从后者的数据复制到前者。 我可以将复制单元格硬编码到单元格，问题是从名册到名单的人员变动量。 什么是完成这个最好的方法？

Answer 1

像这样的东西：

Option Explicit Public Sub CopyTranspose(ByVal prgnSourceTopLeftCell As Excel.Range, ByVal prngDestinationTopLeftCell As Excel.Range) Dim lastRow As Long Dim lastCol As Long With prgnSourceTopLeftCell.Worksheet lastRow = .Cells(.Rows.Count, prgnSourceTopLeftCell.Column).End(xlUp).Row lastCol = .Cells(prgnSourceTopLeftCell.Row, .Columns.Count).End(xlToLeft).Column .Range(prgnSourceTopLeftCell, .Cells(lastRow, lastCol)).Copy End With prngDestinationTopLeftCell.PasteSpecial xlPasteAll, Transpose:=True Application.CutCopyMode = False End Sub Public Sub Demo() CopyTranspose ThisWorkbook.Worksheets("Sheet1").Cells(1, 1), ThisWorkbook.Worksheets("Sheet2").Cells(1, 1) End Sub 

编辑 ：我看你以前提交了很好的问题以及代码，所以我猜这只是迟到了.-)