Brechen einer Zelle, wenn es ein Newline-Zeichen enthält

Question

In Excel möchte ich in der Lage sein, eine Zelle automatisch in 2 oder mehr Zellen zu brechen, wenn sie ein Newline-Zeichen enthalten (alt + Enter). Wie mache ich das, damit es die Zelle in neue Zellen unter dieser Reihe teilt?

Answer 1

Sub MakeTwoCellsForCellHavingLF() 
Dim currentCellValue As String, LFFoundAt As Integer 

currentCellValue = ActiveCell.Value 
LFFoundAt = InStr(1, currentCellValue, vbLf) 

If LFFoundAt <> 0 Then 
    ActiveCell.Value = Left(currentCellValue, LFFoundAt - 1) 
    ActiveCell.Offset(1).Value = Mid(currentCellValue, LFFoundAt + 1) 
End If 
End Sub 

Answer 2

Angenommen, Ihre Daten in A1 ist.

A2 sollte enthalten (Bitte entschuldigen und die C-artige Kommentare löschen.):

=FIND(CHAR(10),A1) // Location of CHAR(10), your newline. 

ASCII 10 Newline bedeutet. Ausblenden Row 2.

A3 sollte enthalten:

=IF(
    NOT(ISERR(A2)), // Make sure there is a newline 
    LEFT(A1, A2-1), // Everything up to the newline 
    A1    // If there's no newline, original string 
    ) 

A4 enthalten:

=IF(
    NOT(ISERR(A2)),  // Make sure there is a newline 
    RIGHT(A1, LEN(A1)-A2), // Everything after the newline 
    ""      // If there's no newline, nothing 
    )