MS Office应用程序设计非常智能,我不是说这只是因为它们使我的工作变得更加容易。我说的是因为它是真的。几天前,我们发布了一篇关于在Office 2013中插入YouTube视频的帖子,并指出MS Excel中没有该选项,因为那里不需要它。这就是我所说的情报类型;了解特定类型的应用程序需要哪些功能。它确保没有任何不相关的东西进入最终产品。也就是说,我很惊讶地发现Excel允许您在工作表中插入更多行,它不允许您选择要添加的行数。您还可以通过其他方法来完成此操作,例如选择要从现有行添加的行数,然后使用insert函数。或者,您可以根据需要重复插入行步骤。这是重复的,但如果你愿意花五分钟时间,这个小宏可以为你照顾好这份工作。

由于这需要宏,因此您需要将文件另存为启用宏的Excel文件。为此,请单击另存为窗口中的“另存为类型”下拉列表,然后选择“Excel Marco Enabled Workbook(* xlsm)”。

接下来,是时候编写宏了。转到“视图”选项卡,然后单击“宏”以创建新宏。将其命名为您喜欢的名称,然后单击“创建”。以下窗口将自动打开。

这里的相关内容是“Sub”和“End Sub”行。 Sub行将包含宏的名称,而End Sub标记该宏中的commnads的结尾。由于您刚刚创建它,因此在这些行之间应该没有任何内容,如上面的屏幕截图所示。在这两行之间粘贴以下内容。

Dim CurrentSheet As Object'循环浏览所有选定的工作表。对于每个CurrentSheet在ActiveWindow.SelectedSheets中,在每个工作表的顶部插入5行。 CurrentSheet.Range(“a1:a5”)。EntireRow.Insert Next CurrentSheet

此代码将从最顶部插入五行。它在代码中引用为A1:A5。要编辑它以满足您的需要,您需要编辑此范围。第一个值用作对行插入位置的引用。如果将其更改为A100,则会在前九十九行之后插入行。设置参考点后,需要输入行数。

行号由单元格范围A1:A5定义。此范围将插入5行。要找到行数的正确范围,例如,您希望从A99插入25行,您将向参考点添加25,以便它是A99并减去其中的一个单元格。即A100 + 99 - 1 = A198。您正在添加行而不是列,因此只会更改数字而不是列字母。每次你必须插入行enmass时都需要更新宏,但它只是一个小编辑,它工作得非常好所以值得花费时间。

宏通过Microsoft支持

为你工作: Robert Gaines & George Fleming | 想与我们联系?

在网站上评论: