Excel：如何將多個數據從一行更改爲多個

Question

我是新來的，所以我會盡力解釋最好的我可以幷包括一張圖片。

基本上我需要在excel中組織數據，其中一個單元格內有多個「返回」，並且需要將其從A1轉換爲A1-A5，例如，請參考圖片以獲得更好的示例。

請查看下面的圖片，瞭解我目前如何擁有以及如何擁有它。請幫忙，因爲這會節省很多時間！

This is how it currently looks

This is how I need the information to look

這是需要幾百行的格式相同信息，請幫我看看如何從圖片1把這個數據看起來像圖2中的一個快速解決方案快速的方式，我不知道最快的方式去做這件事。

請注意，在一個畫面中的信息是所有行1和2的畫面信息是所有的行1 - 至5

我也應該注意到，在圖1中的細胞不被合併，而是輸入「alt enter」，我試圖在網上找到幾種方法，但不知道如何去做這件事

Answer 1

Sub test() 
lr = Sheets(1).Range("A1:A" & Rows.Count).End(xlDown).Row 
For i = 2 To lr 
If Sheets(1).Cells(i, 2).MergeCells = True Then 
Sheets(1).Range(Cells(i, 2).MergeArea.Address).UnMerge 
Sheets(1).Range(Cells(i, 3).MergeArea.Address).UnMerge 
nr = Sheets(1).Range(Cells(i, 2), Cells(Rows.Count, 2)).End(xlDown).Row 
If nr < lr Then 
nr1 = nr 
Else 
nr1 = lr + 1 
End If 
For j = i To nr1 - 1 
Sheets(1).Cells(j, 2).Value = Cells(i, 2).Value 
Sheets(1).Cells(j, 3).Value = Cells(i, 3).Value 
Next j 
End If 
i = nr - 1 
Next i 
End Sub 

試試上面的代碼。這可能會幫助你。

Sub test() 
Dim arr() As String 
dim arr2() as string 

For i = 2 To Rows.Count 
If Not Cells(i, 1).Value = "" Then 
val2 = Sheets(1).Cells(i, 2).Value 
val3 = Sheets(1).Cells(i, 3).Value 
arr = Split(Sheets(1).Cells(i, 1).Value, Chr(10)) 
arr2 = Split(Sheets(1).Cells(i, 4).Value, Chr(10)) 
cnt = UBound(arr) 
Sheets(1).Rows(i & ":" & i + cnt - 1).EntireRow.Insert 
For j = i To i + cnt 
Sheets(1).Cells(j, 1).Value = arr(j - i) 
Sheets(1).Cells(j, 4).Value = arr2(j - i) 
Sheets(1).Cells(j, 2).Value = val2 
Sheets(1).Cells(j, 3).Value = val3 
Next j 

i = i + cnt 
Else: Exit For 
End If 

Next i 

End Sub 

確保在A列中的行之間沒有空白。此代碼將爲alt + enter分隔的值起作用。