MS Excel - zamiana polskich znaków - Quorum

Pytanie

MS Excel - zamiana polskich znaków

3
3
117

Czy jest jakaś szybka metoda na pozbycie się polskich znaków z dużej liczby komórek?

#Excel,

Szymon_Siemiaszko

Zapytał
@ Szymon_Siemiaszko | 03.06.2014
- lider
- laureat
- 18
- 7
- 30

Zaloguj się aby zadać pytanie

2
Jak w Excelu zsumować czas w minutach
- @ Janusz_Matyjas
- |
- 12.11.2013
3
Excel 2010 - makro nie działa
- @ bag
- |
- 30.04.2014
1
MS Excel - konwersja czasu na liczbę
- @ Daniel_Miłaczewski
- |
- 26.02.2015

Odpowiedzi (3)

Zaloguj się, aby móc oceniać, komentować, odpowiadać...

1

Możesz użyć tego kodu:

Sub zmiana()
Selection.Replace "ą", "a"
Selection.Replace "ż", "z"
Selection.Replace "ź", "z"
Selection.Replace "ę", "e"
Selection.Replace "ć", "c"
Selection.Replace "ł", "l"
Selection.Replace "ń", "n"
Selection.Replace "ó", "o"
'Selection - zaznaczony obszar
' Replace -"szukana wartość", "zamień na"
End Sub

Wystarczy, że zaznaczysz obszar, w którym chcesz zmienić znaki, i uruchomić makro 'zmiana' (Alt + F8).

Załączniki

xlsm
replace.xlsm ( 14K )

Skomentuj

Marcin_Zajac

Odpowiedział
@ Marcin_Zajac | 03.06.2014
- 2
- 4
- 3

0

Albo tak:

Sub ProcZamieńPolskie()
 x = "ążśźęćńółĄŻŚŹĘĆŃÓŁ"
 y = "azszecnolAZSZECNOL"
 for each k in Selection
  for i = 1 to len(x)
   k.Value = Replace(k.Value,mid(x,i,1),mid(y,i,1))
  next
 next
End Sub

Albo funkcją:

Function FunZamieńPolskie(k as String)
 x = "ążśźęćńółĄŻŚŹĘĆŃÓŁ"
 y = "azszecnolAZSZECNOL"
 FunZamieńPolskie = k
  for i = 1 to len(x)
   FunZamieńPolskie = Replace(FunZamieńPolskie,mid(x,i,1),mid(y,i,1))
  next
End Sub

Skomentuj

Odpowiedział
@ | 07.06.2014
TRENER ALTKOM AKADEMII

0

Jeśli chce Pan użyć funkcji, to np. w komórce B1 wprowadza Pan formułę:

=FunZamieńPolskie(A1)

Jeśli chciałby Pan hurtowo (i nieodwracalnie) zamienić polskie znaki z wielu komórek naraz, wtedy lepiej użyć makra:

ProcZamieńPolskie() (i po prostu je uruchomić z listy makr po dodaniu).

Komentarze (1)

Odpowiedział
@ | 06.08.2019
TRENER ALTKOM AKADEMII

Komentarze

OK, wszystko jasne. Funkcja mi nie działała, ponieważ na końcu funkcji było "End Sub" a ma być "End Function"

Skomentował : @ Stanisław ,07.08.2019

2
1
4