☰

在 Excel 中插入特定数量的行

tag-icon • tag-icon windows-7 microsoft-excel-2013 spreadsheet
在 Excel 中插入特定数量的行

我实在想不通为什么微软没有提供这个功能。如果我想插入 597，为了便于讨论，假设是空白行，新行，所有可用的信息都告诉我要么

  1. 插入一行并按 F4 596 次
  2. 向下滚动，直到找到 597 个空行，然后复制并插入这些行

有没有更简单的方法可以做到这一点？我正在整理库存，这是一个很大的麻烦。这种设计选择背后有什么逻辑吗？

答案1

您可以选择要输入行下方的 597 行，右键单击所选行，然后选择Insert。这将在所选行上方插入 597 个新行。

如果您想要一种简单的方法来选择 597 行，我建议使用下面屏幕截图中突出显示的名称框。

在此处输入图片描述

例如，如果您想在第 10 行下方插入 597 行，请11:607在名称框中输入内容并按 Enter。这将选择这些行。然后，您可以右键单击所选内容并选择。或者，您可以通过按> > >Insert通过键盘插入行。AltHIR

答案2

我不会说这很容易，但第三个选项肯定是上述的组合。使用组合键选择 30 行（例如）

Shift+ Space+Page Down

然后按 F4 20 次（插入 600 我同意）但比执行其他两个操作要容易得多。

另一个选项是 vba，如下所示，其中 (1) 被另一列替换，因此您在单元格中输入数字并插入那么多行

ActiveCell.Offset(1).EntireRow.Insert

另一种选择是购买http://www.extendoffice.com/order/kutools-for-excel.html它为此以及许多其他有用的目的提供了一个很好的选择。

答案3

另一个选择是使用插件来为您提供附加功能。ASAP 实用程序提供以下内容：

在此处输入图片描述

多年来，我一直是 ASAP Utilities 的活跃用户，我发现它对于某些繁重的任务非常有用，比如这个。几年前，当我换了一台新笔记本电脑时，我从未重新安装过它（因为我的工作不需要重复性的东西），所以不确定现在这个产品有多好。

答案4

Sub insertRows()
    Dim i As Long
    Dim j As Variant
    j = InputBox("How many rows would you like to insert?", "Insert Rows")
    If j = "" Then
        j = 1
    End If
    For i = 1 To j
        ActiveCell.Rows.EntireRow.Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next
End Sub

这将打开一个输入框，您可以在其中指定要插入的行数。默认情况下，如果没有输入任何内容（没有其他错误处理），它将插入 1。它从所选单元格的当前行开始，并循环插入行，直到插入指定的数量。

相关内容