Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Pytanko
Marcin2005




Typ: neutral
Postów: 1
Zarejestrowany: Feb 2005
Pytanko

Musze w Excelu usunąć w każdym wierszu ostatni znak przy czym znaki są różne a wierszy jest ok. 2000 wygląda to np.

abc
def
a opo uruchomieniu makra pozostać powinno
ab
de

jak napisać makro które zrobi to automatycznie

03-02-2005 08:33
Pokaż profil Marcin2005  Wyślij email do Marcin2005   
adalek




Typ: neutral
Postów: 54
Zarejestrowany: Jan 2005

a np tak:

Sub wycinacz()

Dim komorka As Range

For Each komorka In Selection

komorka.Select
komorka.Value = Left(komorka, Len(komorka) - 1)
Next komorka

End Sub

przy czym moj kumpel zrobil to bez makra, sama formula:

=dł(a1; dł(a1)-1)

03-02-2005 08:46
Pokaż profil adalek  Wyślij email do adalek   
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Aby makro było szybsze...

Sub wycinacz()
Dim komorka As Range

Application.ScreenUpdating = False

For Each komorka In Selection
    'komorka.Select ' nie trzeba zaznaczać
    komorka = Left(komorka, Len(komorka) - 1)
Next komorka

Application.ScreenUpdating = True

End Sub



_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

03-02-2005 22:09
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
adalek




Typ: neutral
Postów: 54
Zarejestrowany: Jan 2005

hie hie hie - odswiezanie to "zestaw obowiazkowy"

nie podawalem zeby kod byl jasniejszy

04-02-2005 15:25
Pokaż profil adalek  Wyślij email do adalek   
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1