复制额外的input到excel并自动填充

我需要每周从一张纸上复制新的数据到已经存在的所有过去的数据中。 现有的表格栏（一些）也使用VBA制定。 我已经编写了将数据复制到工作表的代码，但其他列未被自动填充（或拖动）。

Sub Transfernewdata() Dim sht As Worksheet Set sht = ThisWorkbook.Worksheets("Sheet2") lastrow = sht.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row Range("D5:D" & lastrow).Copy ThisWorkbook.Worksheets("Sheet1").Range("a65536").End(xlUp).Offset(1, 4) Range("C5:C" & lastrow).Copy ThisWorkbook.Worksheets("Sheet1").Range("a65536").End(xlUp).Offset(1, 3) Range("B5:B" & lastrow).Copy ThisWorkbook.Worksheets("Sheet1").Range("a65536").End(xlUp).Offset(1, 2) Range("A5:A" & lastrow).Copy ThisWorkbook.Worksheets("Sheet1").Range("a65536").End(xlUp).Offset(1, 1) ThisWorkbook.Worksheets("Sheet1").Range("a65536").End(xlUp).Offset(1, 0) = Date Application.CutCopyMode = False End Sub 

我只是转移4列，其余的是自动填充。 我尝试把date（代码的最后一行），但即使这不会填满一次以上。 任何帮助表示赞赏，也我不明白，我运行的每个模块不会影响添加的新数据。

Answer 1

改变这个：

 ThisWorkbook.Worksheets("Sheet1").Range("a65536").End(xlUp).Offset(1, 0) = Date 

对此：

 ThisWorkbook.Worksheets("Sheet1").Range("A" & lastrow & ":a65536") = Date 

根据您在下面的评论中提供的附加信息，我build议将您的数据放入表格中。 每次向表中插入一行时，公式都应自动复制自己。

如果将光标移动到数据集的左上angular，请按Ctrl – T ，它将自动将所有已经存在的连续数据标签化。 （您必须根据需要选中或取消选中“我的数据有标题”问题。）