Excel: Komórka z wieloma liniami tekstu w jednym wierszu tekstu

Question

Mam około 4000 komórek, każdy z około 4 oddzielnymi liniami tekstu. Każda linia tekstów została wprowadzona za pomocą metody ALT + ENTER.

Czy ktoś może zaproponować sposób, komendę/metodę VBA lub Excela, aby przekonwertować każdą z tych komórek w jedną linię, z przerwami między wyrazami.

Przykład: Aktualny komórkowy 1:

• O
• jazda
• Dog

Potrzeba: komórkowy 1:

• O Konia Pies

Każda pomoc jest mile widziane

Answer 1

Spróbuj krótkie makro:

Sub dural() 
    Dim rng As Range 
    Set rng = Selection 
    rng.Replace what:=Chr(10), lookat:=xlPart, replacement:=" " 
End Sub 

Answer 2

ALT + ENTER tworzy postać zwaną vbLF (Visual Basic Line Feed). Chcesz po prostu wymienić vbLF z kosmosu, tak jak poniżej:

Sub test() 
    Dim str As String 
    str = Range("A1") 
    Debug.Print str 
    str = Replace(str, vbLf, " ") 
    Debug.Print str 
End Sub 

aby umieścić go w pętli:

Sub test() 
    dim i as integer 
    Dim str As String 

    for i = 1 to 10 '(however many you want, can also be dynamic - use XlUp if you want to) 
     str = Range("A" & i) 
     Debug.Print str 
     str = Replace(str, vbLf, " ") 
     Debug.Print str 
    next 
End Sub 

Answer 3

Trochę szukaj w swojej ulubionej przeglądarki: https://www.ablebits.com/office-addins-blog/2013/12/03/remove-carriage-returns-excel/

jeśli to "jeden strzał", nie ma potrzeby tworzenia makra VBA. Wymienić powrotu karetki spacją, a zadanie powinno być wykonane

Answer 4

myślę, że zrobi to, co chcesz:

Sub Macro1() 

    Cells.Replace What:=vbLf, Replacement:=" ", LookAt:=xlPart 

End Sub 

Answer 5

Aby to zrobić bez VBA:

Użyj funkcji Znajdź i zamień.

W polu Znajdź, przytrzymaj ALT i wpisz 0010 (kod ASCII dla linii jest 10 - nic nie zobaczysz, ale jest to nowy znak linii).

W polu Zamień, po prostu wpisz znak spacji lub dowolny ogranicznik.

Kliknij na buttton Replace all.