在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列。