将一行插入到一组特定的列中

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

一个基本的例子:

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

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

您将不得不编写一个VBAmacros来select笔记表中的所有单元格作为Range对象,然后将它们向下移动一行。

我不知道确切的代码,但我build议你使用“录制macros”function,并手动完成:在Excel工作表中select两个单元格,按下鼠标右键并单击“插入”。 然后它会问你是否要移动行。 您可以在新录制的macros中看到代码是什么,并根据您的具体目的进行调整。 祝你好运!