單元格有3個插入的數據行。如何將其分割成每行數據的行

Question

單元格中的2行日期（可以是任何內容）。需要檢測由\ n（新行？）分隔的單元格中的條目，並且具有爲每個行條目分割單元格的功能。

所以我想象的地方它會檢測新行的文字（\ n或其他），而且它將開始創造新的細胞抓住它\ n

Answer 1

之前檢測假設數據你的數據在Column A，你想輸出在Column C分割數據，下面可能會有所幫助：

Option Explicit 

Sub splitCell() 
    Dim lastRow As Long, rowInd As Long, i As Long 
    Dim tempArr As Variant 
    Dim ws As Worksheet 

    Set ws = ThisWorkbook.Sheets("Sheet1") 'Change Sheet1 to your worksheet 

    With ws 
     rowInd = 1 
     lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 'get last row with data in Column A 
     For i = 1 To lastRow 'looping tgrough all the cells in Column A 
      tempArr = Split(.Range("A" & i), Chr(10)) 'Chr(10) is line break code 
      .Range("C" & rowInd).Resize(UBound(tempArr) + 1, 1) = Application.Transpose(tempArr) 
      rowInd = rowInd + UBound(tempArr) + 1 
     Next i 
    End With 
End Sub 

查看圖像以供參考。

Answer 2

作爲工作表公式，

=TRIM(MID(SUBSTITUTE(P$1, CHAR(10), REPT(CHAR(32), LEN(P$1))), (ROW(1:1)-1)*LEN(P$1)+1, LEN(P$1)))