将行插入一组特定的列

Question

我正在制作一个电子表格，作为一些重要信息的主副本，这些重要信息将用于项目的跟踪。在主页上，我有一个笔记表和一个表格，用于设置由几列分隔的联系人和一些用于插入新笔记或新联系人的VB代码。但是，当我插入一个新笔记时，我希望它显示在表格的顶部，并将所有现有笔记向下移动一行。有没有办法将一行添加到一组特定的列中，以便保留在具有相同行但在另一个表中的单元格上的任何其他数据不会被移动？

Answer 1

一个基本的例子：

Dim rng As Range
Set rng = Worksheets("Sheet1").Range("A2:D2")
rng.Insert Shift:=xlDown

...假设您要在当前位于A2的单元格上方插入1行单元格：D2。

Answer 2

您必须编写一个VBA宏，它将notes表中的所有单元格选为Range对象，然后将它们向下移动一行。

我不知道确切的代码，但我建议您使用“记录宏”功能并手动完成：在Excel工作表中选择两个单元格，按鼠标右键并单击“插入”。然后它会询问你是否要将行向下移动。您可以在新录制的宏中看到代码是什么，并根据您的具体目的进行调整。祝你好运！