在excel工作表

Question

插入行可选地我有一个excel工作表看起来像这样：

希望每个填充的单元下面以插入行（或小区）。像这样：

我有成千上万的记录，所以需要自动执行此操作。我怎样才能做到这一点？

在此先感谢！

Answer 1

非VBA的办法是做一个新的工作表，并输入以下公式A1：

=INDEX(Sheet1!A:A, ROUNDUP(ROW(A1)/2, 0)) 

然后选择A1和A2（保留A2空白），复制它，选择两倍于Sheet1中的行数，然后粘贴。

如果您只需要值，则可以选择A列并复制，然后仅粘贴特殊值和粘贴值。

Answer 2

你可以用下面的代码做在VBA：

Sub doIt() 

    Dim numRows As Long 
    Dim i As Long 

    numRows = ActiveSheet.UsedRange.Rows.Count 

    For i = numRows To 2 Step -1 
     ActiveSheet.Rows(i).Insert Shift:=xlDown 
    Next i 

End Sub 

Answer 3

1. 选择包含您想要一次由1个单元格分隔的数据的原始数据。
2. 按F5。
3. 点击特殊。
4. 在转到特殊对话框中，单击“常量”。
5. 右键单击选定单元格的1和插入

Answer 4

另外，我发现从https://www.pcmag.com/article/149833/insert-alternate-blank-rows-in-excel

以下解决方案可以创建单独的空白行，然后通过排序与现有行交错他们。要开始，请在现有列A的左侧插入一个新列。在单元格A1中输入1，然后高亮显示列A，直至包含数据的最后一行。从编辑菜单中选择填充|系列并点击确定。列A现在应该包含从1到总行数的数字。按Ctrl-C将这些单元格复制到剪贴板，单击最后一个单元格下面的单元格，然后按Ctrl-V进行粘贴。现在突出显示整个数据区域，包括A列中只有一个数字的新行。从Data菜单中选择Sort，然后在结果对话框中选择No header row选项。在排序方式下选择列A，在下方选择列B，然后单击确定。最后，删除A列。在原始的1,000行奇数行之后，您现在有一个空行。

由于空行常常会导致图表或计算出现问题，因此您可能需要快速删除它们。你可以使用类似的技术。

再次，在列A的左侧插入一个新列，并填充从1到数据末尾的一个序列。突出显示整个数据区域并按列B排序（实际数据的第一列）。这会将所有空白行组合在一起。接下来，再次突出显示数据区域，然后按列A重新排序。空白行消失，数据恢复到原始顺序。最后，删除A列。