GoldenLine
Zaloguj się
Piotr Stec

Piotr Stec Dyrektor, Polska
Agencja Rozwoju
Regionalnego - PARR

Temat: jak automatycznie usunąć ALT+ENTER w całym skoroszycie?

mam problem z usunięciem "twardego entera" z komórek. Dostałem skoroszyt z ponad 100 arkuszy i nagminnie są wprowadzone w komórkach ALT+ENTER przy nieco dłuższym tekście.

Ma ktoś pomysł jak można z całego skoroszytu automatycznie usunąć te twarde entery?

Dziękuję z góry!
Link do wypowiedziLink

konto usunięte

Temat: jak automatycznie usunąć ALT+ENTER w całym skoroszycie?

metoda opisana poniżej powinna zadziałać:
http://theexceladdict.com/blog/?p=128

pozdrawiam,
Maciek
Link do wypowiedziLink
Piotr Stec

Piotr Stec Dyrektor, Polska
Agencja Rozwoju
Regionalnego - PARR

Temat: jak automatycznie usunąć ALT+ENTER w całym skoroszycie?

ale trzeba usuwać ręcznie w każdym arkuszu, a jak mam ich kilkaset to trochę słabo ;)
Link do wypowiedziLink
Andy L.

Andy L. ITM, VUB

Temat: jak automatycznie usunąć ALT+ENTER w całym skoroszycie?

Find/Replace
CHAR(10) na cokolwiek chcesz
Gdybyś miał kłopot z CHAR(10) bo pewnie taki będzie :)))) to w Find wprowadź CHAR(10) jako Ctrl+J.

lub dopasuj sobie to:


Sub RemoveCarriageReturns()

	Dim MyRange As Range

	Application.ScreenUpdating = False

    Application.Calculation = xlCalculationManual



    For Each MyRange In ActiveSheet.UsedRange

        If 0 < InStr(MyRange, Chr(10)) Then

            MyRange = Replace(MyRange, Chr(10), "")

        End If

    Next



	Application.ScreenUpdating = True

    Application.Calculation = xlCalculationAutomatic

End Sub


lub w ostateczności spróbuj tego

EDIT:
Jeżeli chcesz "za jednym zamachem" usunąć/zamienić CHAR(10) w wielu sheet-ach to po prostu zaznacz tyle arkuszy ile potrzebujesz (lub wszystkie) - czyli klik pierwszy arkusz, SHIFT i klik ostatni arkusz - i użyj Ctrl+H (jak na początku)Ten post został edytowany przez Autora dnia 22.06.16 o godzinie 12:45
Link do wypowiedziLink
Piotr Stec

Piotr Stec Dyrektor, Polska
Agencja Rozwoju
Regionalnego - PARR

Temat: jak automatycznie usunąć ALT+ENTER w całym skoroszycie?

Dziękuję bardzo! Wprawdzie trzeba zmieniać arkusz po arkuszu (albo ja nie potrafię zrobić pętli dla wszystkich arkuszy jednocześnie), ale to już nie jest taki problem.
Link do wypowiedziLink
Piotr Stec

Piotr Stec Dyrektor, Polska
Agencja Rozwoju
Regionalnego - PARR

Temat: jak automatycznie usunąć ALT+ENTER w całym skoroszycie?

Andy L.:

EDIT:
Jeżeli chcesz "za jednym zamachem" usunąć/zamienić CHAR(10) w wielu sheet-ach to po prostu zaznacz tyle arkuszy ile potrzebujesz (lub wszystkie) - czyli klik pierwszy arkusz, SHIFT i klik ostatni arkusz - i użyj Ctrl+H (jak na początku)

Find/Replace CHAR(10) mi nie działa. Marko, które wysłałeś śmiga super :)
Link do wypowiedziLink
Andy L.

Andy L. ITM, VUB

Temat: jak automatycznie usunąć ALT+ENTER w całym skoroszycie?

Czyli czytasz pobieżnie. Jak byś czytał dokładnie to byś zauważył, że CHAR(10) w pole Find można wprowadzić za pomocą Ctrl+J (nie zobaczysz żadnego znaku bo to spacja). A reszta już była opisana.
Link do wypowiedziLink
Piotr Stec

Piotr Stec Dyrektor, Polska
Agencja Rozwoju
Regionalnego - PARR

Temat: jak automatycznie usunąć ALT+ENTER w całym skoroszycie?

Andy L.:
Czyli czytasz pobieżnie. Jak byś czytał dokładnie to byś zauważył, że CHAR(10) w pole Find można wprowadzić za pomocą Ctrl+J (nie zobaczysz żadnego znaku bo to spacja). A reszta już była opisana.

tak robiłem. Ale nie zadziałało mi.
Link do wypowiedziLink
Andy L.

Andy L. ITM, VUB

Temat: jak automatycznie usunąć ALT+ENTER w całym skoroszycie?

To pewnie ja mam jakiegoś super excela. :)))))
Link do wypowiedziLink

konto usunięte

Temat: jak automatycznie usunąć ALT+ENTER w całym skoroszycie?

hm,, sposób, który podlinkowałem zadziałał bez problemu na wszystkich arkuszach w skoroszycie (sprawdziłem dosłownie przed chwilą). Ważne, żeby w formularzu wyszukiwania / zastępowania (CTRL+H) rozwinąć "Opcje >>" i zmienić wartość w polu "Wewnątrz" z "Arkusz" na "Skoroszyt".
Link do wypowiedziLink
Piotr Stec

Piotr Stec Dyrektor, Polska
Agencja Rozwoju
Regionalnego - PARR

Temat: jak automatycznie usunąć ALT+ENTER w całym skoroszycie?

Andy L.:
To pewnie ja mam jakiegoś super excela. :)))))

Któż to wie :))))

U mnie wyświetla się taka informacja jak na zdjęciu:


Obrazek


A generalnie wyraźnie widać, że twarde spacje dalej są. Po uruchomieniu Twojego makro wszystko jest ok.

Być może ja coś źle robię.Ten post został edytowany przez Autora dnia 22.06.16 o godzinie 13:28
Link do wypowiedziLink
Andy L.

Andy L. ITM, VUB

Temat: jak automatycznie usunąć ALT+ENTER w całym skoroszycie?

Obrazek: Error (403)

Obrazek

lub Obrazek
lub
Obrazek
Ten post został edytowany przez Autora dnia 22.06.16 o godzinie 14:07
Link do wypowiedziLink
Damian Zurawski

Damian Zurawski Data Engineer w
Grupie Żywiec

Temat: jak automatycznie usunąć ALT+ENTER w całym skoroszycie?

Do tego celu można też użyć formuły wbudowanej OCZYŚĆ :) Ale to tylko w ramach ciekawostki wpisuje :) Może komuś się za informacja przyda.
Link do wypowiedziLink
Andy L.

Andy L. ITM, VUB

Temat: jak automatycznie usunąć ALT+ENTER w całym skoroszycie?

CLEAN() (czyli OCZYŚĆ() ) działa tylko na pojedyńczą komórkę lub szereg komórek w pojedyńczych krokach. Nie da się tej funkcji zastosować do całego obszaru skoroszytu a tym bardziej do całego workbook-a.
Ale oczywiście funkcja ta działa na non-printable znaki. :)))Ten post został edytowany przez Autora dnia 22.06.16 o godzinie 23:04
Link do wypowiedziLink
Damian Zurawski

Damian Zurawski Data Engineer w
Grupie Żywiec

Temat: jak automatycznie usunąć ALT+ENTER w całym skoroszycie?

Andy L.:
[...]Nie da się [...]

Hehe, uwielbiam jak ludzie tak mówią ;)
Nie da, to się hełmu na lewą stronę założyć :D

P.s. Andy nie bierz tego do siebie, po prostu to było silniejsze ode mnie ;)
Link do wypowiedziLink
Andy L.

Andy L. ITM, VUB

Temat: jak automatycznie usunąć ALT+ENTER w całym skoroszycie?

Fakt, powinno być: prawdopodobnie... lub coś w tym stylu.
To się nazywa być złapanym we własne sidła :)))

A tak, biorąc pod uwagę to, że facet może urodzić dziecko, to może i z tym hełmem się da? :)))))))
Link do wypowiedziLink
Marcin N.

Marcin N. Poszukiwacz
rozwiązań, Notoria

Temat: jak automatycznie usunąć ALT+ENTER w całym skoroszycie?

Cześć,

Moja propozycja jest taka:


Sub UsunWszystkie()

    For Each MySheet In Sheets

        For Each MyCell In MySheet.UsedRange

            MyCell.Value = Replace(MyCell.Value, Chr(10), " ")

        Next

    Next

End Sub


Potem można dodać do tego te wszystkie finezje jak Dim, Calculation, ScreenUpdating czy On Error.

Pozdrawiam

- Marcin

PS AltEnter zamieniam na spację, ale tylko po to by "przestrzeń" wprowadzona przez Chr(10) zachowała właściwość przestrzeni.Ten post został edytowany przez Autora dnia 28.06.16 o godzinie 00:31
Link do wypowiedziLink
Oskar Shon

Oskar Shon Dodatki do Office
www.VBATools.pl

Temat: jak automatycznie usunąć ALT+ENTER w całym skoroszycie?

To ja polecę w temacie 2 gotowe rozwiązania, które mają między innymi możliwość rozłączenia jak i łączenia po Alt_Enterze jak i zmieniane tego znaku na inny.


Obrazek
Obrazek


p.s.
Piotrek masz obydwa rozwiązania u siebie.
Link do wypowiedziLink
Paweł Grzywaczewski

Paweł Grzywaczewski Ekspert
ubezpieczeniowy

Temat: jak automatycznie usunąć ALT+ENTER w całym skoroszycie?

Damian Z.:
Do tego celu można też użyć formuły wbudowanej OCZYŚĆ :) Ale to tylko w ramach ciekawostki wpisuje :) Może komuś się za informacja przyda.
Bardzo dobry pomysł, miałem problem z importowaniem danych CSV bo entery były zapisywane jako nowy wiersz, co wprowadzało mega nieład. (excel 2017) Edytowanie>wyczyść>wyczyść formaty :), Entery zniknęły
Link do wypowiedziLink
Andy L.

Andy L. ITM, VUB

Temat: jak automatycznie usunąć ALT+ENTER w całym skoroszycie?

Ponownie Excel 2017 !

Czy ja o czymś nie wiem???????
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy





Wyślij zaproszenie do
Anuluj