在替换值时，在不同的行上粘贴相同的单元格

Question

这是对我在同一工作簿上的前几个问题的后续跟进。

我有两张纸，第一张是Car Search，其中包含一个表格（不是VBA表格，只是一张看似表格的普通表格）。第二张表格是Raw Data ，并将包含Car Search表中输入的所有信息。它将逐行显示（见第2张图片）。

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

我的问题是：如果我有一个新的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

然而，有一个小错误，它不断粘贴过去的值，所以我建议在下面的替代宏

重新编辑：

一种更加机械化的宏观工作方式（希望有人可以改进）看起来像这样：

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中，单元格B3全部被选中
在Raw Data中的
• ，选择您希望Car Search!B3数据粘贴的列中具有最后一个值的单元格（您只需执行一次此操作）
• 按下宏上的“运行”（简单到record one yourself）
• 返回Car Search并更改B3的值，按Ctrl-Enter以在更改值后保持选中相同的单元格，然后按相同的宏按钮而不更改任何内容。

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