将行插入到Excel表格中

我有一个excel表单，看起来像这样：

我想在每个填充的单元格下面插入行（或单元格）。 喜欢这个：

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

提前致谢！

Answer 1

非VBA方法是创build一个新工作表，并在A1中input此公式：

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

然后selectA1和A2（留下A2空白），复制它，如Sheet1中select两倍的行数，然后粘贴。

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

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. select包含您想要一次分隔的数据的原始数据。
2. 按F5。
3. 点击特殊。
4. 在转到特殊对话框中，单击“常量”。
5. 右键单击所选单元格的1并插入

Answer 4

或者，我从https://www.pcmag.com/article/149833/insert-alternate-blank-rows-in-excelfind以下解决scheme

您可以分别创build空白行，然后通过sorting将它们与现有行交错。 要开始，请在现有列A的左侧插入一个新列。在单元格A1中input1，并将列A高亮显示到包含数据的最后一行。 从编辑菜单中select填充| 系列并点击确定。 列A现在应该包含从1到总行数的数字。 按Ctrl-C将这些单元格复制到剪贴板，单击最后一个单元格下方的单元格，然后按Ctrl-V进行粘贴。 现在，突出显示整个数据区域，包括A列中只有一个数字的新行。从Data菜单中selectSort，然后在出现的对话框中selectNo header row选项。 在“sorting方式”下，select“列A”，然后在“select列B”下单击“确定”。 最后，删除A列。在原始的1,000行之后，现在有一个空行。

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

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