宏复制/粘贴Excel表

Question

我有宏代码从输入复制和粘贴一个值列表，其中记录被输入到完成，标题是相同的。

Sub a()
Sheets("ITM").Range("A1:AD1000").Copy
Sheets("ISP").Range("A1").PasteSpecial xlValues
End Sub

这是工作的复制和粘贴，但我需要调整它，以考虑到现有的填充字段，以便旧的已完成的记录不超过书面。

样本数据：

信息技术管理：

用户输入数据

Header A   - Header B   -  Header C
  Ex          BY              TY

ISP

这将记录所有以前输入的数据，宏将将最新的ISP输入的数据添加到下一个可用行。

Request #        Header A    -      Header B    -  Header C
   1               XY                  TY              ER
   2               QW                  WE              EW
   3               EX                  BY              TY

Answer 1

Paste Special, values操作可以由不涉及剪贴板的直接传输代替，并且通常要快一些。“考虑到现有的填充字段”，我将认为这意味着您希望将新信息放入ISP工作表的第一个空白行，而不是覆盖以前的记录。

Sub a()
    With Sheets("ITM").Cells(1, 1).CurrentRegion
        With .Offset(1, 0).Resize(.Rows.Count - 1, 30)
            Sheets("ISP").Cells(Rows.Count, 1).End(xlUp) _
              .Offset(1, 1).Resize(.Rows.Count, .Columns.Count) = .Value
            Sheets("ISP").Cells(Rows.Count, 1).End(xlUp).Resize(.Rows.Count + 1, 1) _
              .DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1
        End With
    End With
End Sub

您没有提到任何列标题标签，所以我没有说明它们。如果您有不希望每次跨列的列标题标签，则数据范围可以向下偏移1行。