To ja zaproponuję prostszą wersję co nie oznacza że lepszą.
Sub usun() Dim wiersz AsLong For wiersz = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(wiersz, 1) = Replace(Cells(wiersz, 1), " ", "") Next wiersz EndSub
Jak już wspomniałem na innym forum przy tak długiej liczbie istnieje niebezpieczeństwo, że excel cyfrę powyżej 15 zamieni na 0. Może temu zapobiec format tekstowy komórki lub apostrof przed liczbą. Dalsze działania na takiej liczbie mogą być problematyczne.
napisał: _marco postów: 1
umieszczony: 5 stycznia 2007 16:10
Witam,
borykam sie z takim problemem otorz mam jedna kolumne w arkuszu i kilka tysiecy w niej rekordow. Rekordy wygladaja nastepujaco
5478 4125 4587 2547
jak widac w srodku wystepuja tam spacje ktore chcialbym pousuwac oczywiscie w calej kolumnie za pomoca makra. czy moze ktos z was zna sposob albo jakis trik aby to wykonac?
wstecz 1 dalej
otwarty rozpoczął: _marco
postów: 5
