我正在制作一个电子表格,作为一些重要信息的主副本,这些信息将被项目跟踪。在主工作表上,我有一个笔记表格和一个联系人表格,这些表格由几列和一些 VB 代码分隔,用于插入新笔记或新联系人。但是,当我插入一个新笔记时,我希望它出现在表格顶部并将所有现有笔记向下移动一行。有没有办法将一行添加到一组特定的列中,以便保留在具有相同行但在不同表中的单元格上的任何其他数据不被移动?
问问题
6072 次
2 回答
2
一个基本的例子:
Dim rng As Range
Set rng = Worksheets("Sheet1").Range("A2:D2")
rng.Insert Shift:=xlDown
...假设您要在当前位于 A2:D2 的单元格上方插入 1 行单元格。
于 2010-01-20T20:24:37.897 回答
0
您必须编写一个 VBA 宏,将笔记表中的所有单元格选择为 Range 对象,然后将它们向下移动一行。
我不知道确切的代码,但我建议您使用“记录宏”功能并手动完成:选择 Excel 工作表中的两个单元格,按鼠标右键并单击“插入”。然后它会询问您是否要向下移动行。您可以在新录制的宏中看到代码是什么,并根据您的特定目的对其进行调整。祝你好运!
于 2010-01-20T20:02:52.393 回答