Identifizieren der zweiten Textzeile in einer Zelle mit VBA

Question

Ich habe eine Reihe von Zellen, die zwei Zeilen Text in jeder Zelle nach dem Ziehen der Daten in Excel haben. Was ich suche, ist ein Makro mit der Trim Funktion zu verwenden, um alles in der Zelle nach der zweiten Zeile zu entfernen. Ich bin verwirrt mit diesen Daten, es ist, als ob Sie Daten in eine Zelle eingeben und in die nächste Zelle eingeben, aber es ist eine Zelle und wird nicht zusammengeführt.

ex.

Someone's Name [123] Procedure room, procedure done

Gibt es eine Möglichkeit, diesen Zeilenumbruch zu identifizieren?

Vielen Dank für jede Hilfe, meine Köpfe drehen und ich stemple für den Tag. cheers

Answer 1

Suchen Sie einfach nach dem ASCII-10. Wählen Sie die Zellen aus, die Sie verarbeiten und ausführen möchten:

Sub KleanUp() 
    Dim r As Range 
    For Each r In Selection 
     r.Value = Split(r.Value, Chr(10))(0) 
    Next r 
End Sub 

Nur die erste Zeile wird in jeder Zelle beibehalten.

EDIT # 1:

Wie Ralph weist darauf hin, ASCII-13 auch in Betracht gezogen werden sollte, deshalb:

Sub KleanUp2() 
    Dim r As Range 
    For Each r In Selection 
     r.Value = Split(Replace(r.Value, Chr(13), Chr(10)), Chr(10))(0) 
    Next r 
End Sub 

Dieser verwandelt sich in eine Single-Stil Zeilenumbruch.

EDIT # 2:

Es ist möglich, die Leistung des Unter zu verbessern, indem:

• die Daten in einen VBA-Array als eine einzige große Blocklese
• durch die Looping Array (in VBA)
• Übertragen der Daten zurück zum Arbeitsblatt in einem einzigen Block