在replace值时粘贴不同行上的相同单元格

这是从我以前在同一本工作簿上的几个问题开始的。

我有两张纸，第一张是Car Search ，它包含一个表格（不是VBA表格，只是一张正常的表格，似乎是一张表格）来填写。第二张是Raw Data ，并包含所有input的信息Car Search表。 它将逐行显示（见第二张图）。

在Raw Data表中，我使用公式=""&'Car Search'!B3复制Car Search电子表格中单元格B3的内容。

我的问题是：如果我有一个新的Car ID值，那怎么会自动进入下面的行？

从本质上讲，我试图用表单来捕获所有进入新车的数据，然后我希望所有的数据都出现在第二张纸上。

任何帮助非常感谢！ 🙂

Answer 1

编辑：

好消息！

你需要使用VBA：

 Sub Range_Copy_Examples() Worksheets("Car Search").Range("B3").Copy Worksheets("Raw Data").Range("=OFFSET(Sheet3!B1,0,0,COUNTA(B1:B300)+1,1)") End Sub 

不过，有一个小错误，它粘贴在过去的值，所以我build议在下面的替代macros

重新编辑：

一个更macros观的工作机制（希望有人可以改善）看起来像这样：

 Sub Macro1() Sheets("Car Search").Select Application.CutCopyMode = False Selection.Copy Sheets("Raw Data").Select ActiveCell.Offset(1, 0).Range("A1").Select ActiveSheet.Paste Worksheets("Car Search").Activate End Sub 

这工作如下：

• 在Car Search ，一直selectB3单元格
• 在“ Raw Data ，select所需栏中最后一个值的单元格。 Car Search!B3数据粘贴（您只需执行一次）
• 按下macros上的Run（简单到只logging一个 ）
• 返回Car Search并更改B3的值，按下Ctrl-Enter保持改变值后select相同的单元格，然后按下相同的macrosbutton，而不改变一个东西。

如果有人可以添加，以便在Car Search!B3上按Ctrl-Enter时， Raw Data将自动添加，而无需手动运行macros，它将完全自动化！