在excel中創建換行符

-2

我有一個文檔，我想要在行之間創建換行符來組合發票。在excel中創建換行符

例如，我的文檔顯示：

H INV 96579551 
N 606R00103216L 2003- 
H INV 96579583 
N 606R00103216L 2003- 
H INV 96579584 
N 606R00103216L 2003-

但我想創建一個宏，讓我的文件看起來像：

H INV 96579551 
N 606R00103216L 2003- 

H INV 96579583 
N 606R00103216L 2003- 


H INV 96579584 
N 606R00103216L 2003-

誰能給我任何提示？感謝

來源

2013-10-02 Leanne Gilmore

只是爲了澄清：所謂「斷線」你的意思是在Excel中的空行？ - 並且您不想將所有具有Excel組功能的N行分組到相應的H行下，但只想獲得空行？ –

請考慮向我們展示您正在尋找的結果的更真實的表示形式（可能通過模擬Excel截圖）。例如，您可能很難理解，如果您希望輸出位於單個單元格中，或者分佈在多個單元格中。 –

希望這對你的作品（假設你有排序的順序分組的行）

Sub Test() 
    Set selectRows = Cells(3, 1) 'start from 3rd row 
    For i = 3 To ActiveSheet.UsedRange.Rows.Count Step 2 'skip 2 rows (H & N group) 
     Set selectRows = Union(selectRows, Cells(i, "A")) 'store the ODD cell references - starting from 3rd row 
    Next i 
    selectRows.EntireRow.Select 'select all the rows stored in the union reference 
    Selection.Insert Shift:=xlDown 'simulate Ctrl+ to add a row 
    Cells(1, 1).Select 'select the first cell - just to keep it clean :-) 
End Sub

來源

2013-10-02 11:25:36

在excel中創建換行符

回答

相關問題