宏复制/粘贴Excel工作表

Question

我有宏代码可以从Input复制并粘贴值列表，在其中将Records输入到Completed，标题是相同的。

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

这适用于“复制和粘贴”，但是我需要对其进行调整以考虑到现有的已填写字段，以使较早的“完成记录”不会被覆盖。

样本数据：

ITM：

用户输入数据

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行。