Hücre içerisindeki rakam dizisinde bulunan boşlukları kaldırma

[OZBİİ]

Arkadaşlar merhaba, elimde 400 den fazla iban numarası mevcut. İban numaraları bulundukları hücrede 4 karakter 1 boşluk şeklinde yazılmış durumdadır(TR11 1111 1111 1111 1111 1111 11). Listeyi çalıştığımız sistemöe ekleyebilmem için bu rakam dizisi arasındaki boşlukalrı kaldırmam lazım. ama 400 den fazla hücreyi tek tek yapmam çok zamanımı alacaktır. Excelde bunu yapmanın kolay bir yolu varmıdır, bu konuda bana fikir verip yardımcı olabilirmisiniz?

 

[martime]

Merhaba,
Tüm hücreleri seçtikten sonra değiştir/replace 'e girin. (ctrl+f 'ye basıp yan tab'ta görebilirisiniz) Bul/find what' kısmına gelip bir boşluk bırakın. Hespini değiştir/replace all 'a basın. Böylelikle boşlukları silmiş olacaksınız.

 

[hamitcan]

=yerinekoy(a5;" ";"")

 

[OZBİİ]

Arkadaşlar çok teşekkür ederim, martime söylediğin yöntemle çok kolay oldu, süpersiniz

 

[Antepliislam]

Merhabalar sorum için geç olmuş olabilir ama benimde şöyle bir ihtiyacım var;

Örneğin;
5 * 40 YARIKLI PİM
6 * 30 YARIKLI PİM
6 * 50 YARIKLI PİM
6 * 60 YARIKLI PİM
8 * 40 YARIKLI PİM
veya

* İŞARETİNİN OLDUGUNU BÜTÜN HÜCRELERDE * dan önce ve sonra birer boşluklar silmek istiyorum sadece.

Yardımcı olursanız sevinirim, çünkü buna benzer 20000 adet sütun var

 

[Emir Hüseyin Çoban]

Merhabalar sorum için geç olmuş olabilir ama benimde şöyle bir ihtiyacım var;

Örneğin;
5 * 40 YARIKLI PİM
6 * 30 YARIKLI PİM
6 * 50 YARIKLI PİM
6 * 60 YARIKLI PİM
8 * 40 YARIKLI PİM
veya

* İŞARETİNİN OLDUGUNU BÜTÜN HÜCRELERDE * dan önce ve sonra birer boşluklar silmek istiyorum sadece.

Yardımcı olursanız sevinirim, çünkü buna benzer 20000 adet sütun var

. . .

Küçük bir örnek;

Sub Kod()
    Application.ScreenUpdating = False
    For i = 1 To 5
        f = WorksheetFunction.Substitute(Cells(i, "A"), " * ", "*")
        Cells(i, "A") = f
    Next i
    Application.ScreenUpdating = True
    MsgBox " B i t t i "
End Sub

. . .

 

[bzace]

Merhabalar,
Dediğiniz kadar satırda kullandığınız zaman dosyanızda yavaşlama olacaktır fakat alternatif olarak bir köşenizde kalsın.

=DEĞİŞTİR(DEĞİŞTİR(A1;
  MİN((EĞER(PARÇAAL(A1;SATIR(1:38);1)=" ";
    SATIR(1:38))));2;"");
  KÜÇÜK((EĞER(PARÇAAL(A1;SATIR(1:38);1)=" ";
SATIR(1:38)));1);1;"*")
[COLOR="Blue"]Formül dizi formülüdür. CTRL+SHIFT+ENTER ile tamamlayınız.[/COLOR]

Basite indirgersek;

=YERİNEKOY(YERİNEKOY(A1;" ";;1);" ";;1)

Not: Hücre içerisinde 38 taneden fazla " "(boşluk) olması durumunda formül içerisindeki 38 sayısını değiştiriniz.

Saygılar,
Hay marja!