Ana içeriğe atla

Excel'deki hücrelerden tek boşlukla birden çok boşluk nasıl değiştirilir?

doc birden çok boşluğu değiştir 1

Birden fazla boşluk içeren bir metin dizeleri listesine sahip olduğumu varsayarsak, şimdi, aşağıdaki ekran görüntüsü gibi kelimeleri ayırmak için bu boşlukları metin dizeleri arasında tek bir boşlukla değiştirmem gerekiyor. Tek tek kaldırmadan birden çok boşluğu tek bir boşlukla nasıl değiştirebilirim?

Formülü kullanarak birden çok boşluğu tek boşlukla değiştirin

VBA kodunu kullanarak birden çok alanı tek boşlukla değiştirin

Kutools for Excel kullanarak birden çok alanı tek boşlukla değiştirin


Formülü kullanarak birden çok boşluğu tek boşlukla değiştirin

Excel'de, normal Bul ve Değiştir özelliği, bu sorunu çözmek için bizim için iyi çalışmayabilir, bu nedenle, bununla başa çıkmak için basit bir formül uygulayabiliriz. Lütfen şunu yapın:

1. Şu formülü girin: = KIRP (YEDEK (A2; KARAKTER (32); "")) hücre değerinizin yanı sıra boş bir hücreye, ekran görüntüsüne bakın:

doc birden çok boşluğu değiştir 2

2. Daha sonra tuşuna basın. Keşfet tuşuna basın ve B2 hücresini seçin, ardından doldurma tutamacını bu formülü uygulamak istediğiniz aralık hücrelerinin üzerine sürükleyin ve metin dizelerinden tüm fazladan boşluklar kaldırıldı ve aralarında yalnızca bir boşluk bırakılacak Metin. Ekran görüntüsüne bakın:

doc birden çok boşluğu değiştir 3


VBA kodunu kullanarak birden çok alanı tek boşlukla değiştirin

VBA koduyla ilgileniyorsanız, birden çok boşluğu tek bir boşlukla değiştirmeniz için bir kod oluşturabilirim, lütfen aşağıdaki işlemleri gerçekleştirin:

1. Lütfen basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. Sonra tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.

VBA kodu: Birden çok boşluğu tek alanla değiştirin

Sub replace_multiplespaces()
'Updateby Extendoffice
Dim x As Range
Dim Workx As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set Workx = Application.Selection
Set Workx = Application.InputBox("Range", xTitleId, Workx.Address, Type:=8)
    For Each x In Workx
        x = WorksheetFunction.Trim(x)
    Next x
End Sub

3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve fazladan boşlukları kaldırmak istediğiniz veri aralığını seçmenizi hatırlatan bir istem kutusu açılır, ekran görüntüsüne bakın:

doc birden çok boşluğu değiştir 4

4. Ve sonra tıklayın OK düğmesine basıldığında, tüm fazla boşluklar metin içinde tek boşlukla değiştirilmiştir.


Kutools for Excel kullanarak birden çok alanı tek boşlukla değiştirin

Baştaki boşlukları, sondaki boşlukları, metnin tüm boşluklarını kaldırmak gibi kaldırılması gereken başka tür boşluklar varsa, güçlü bir araç önereceğim -Excel için Kutools, onun ile Alanları Kaldır yardımcı program, baştaki boşluk, takip eden boşluklar, tüm boşluklar gibi ihtiyacınız olan boşlukları kaldırabilirsiniz ...

Kutools for Excel : 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin

Kurduktan sonra Kutools for Excellütfen aşağıdaki işlemleri yapın:

1. Fazla boşlukları kaldırmak istediğiniz veri aralığını seçin.

2. tıklayın Kutools > Metin > Alanları Kaldır, ekran görüntüsüne bakın:

3. In Alanları Kaldır diyalog kutusunu seçiniz Tüm fazla alanlar itibaren Alan Türü bölüm ve sonucu şuradan görüntüleyebilirsiniz: Önizleme bölmesi, ekran görüntüsüne bakın:

doc birden çok boşluğu değiştir 6

4. Ve sonra tıklayın Ok or Tamam düğmesi, hücreden tüm fazladan boşluklar kaldırılır ve metin arasında yalnızca tek bir boşluk kalır.

Bu Alanları Kaldır özelliği hakkında daha fazla bilgi edinmek için tıklayın.

Kutools for Excel'i indirmek için tıklayın ve Şimdi ücretsiz deneme!


Demo: Kutools for Excel kullanarak birden çok boşluğu tek boşlukla değiştirin

Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. Hemen indirin ve ücretsiz deneme!

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi Thanks for a useful Blog. It helped me get the answer I was looking for. _................ I was just wondering if this is acceptable and correct for removing Replace Multiple Spaces With Single Space From Cells: Taking your example, Formal to be dragged down: =Trim(A2) ( I do not understand why you have SUBSTITUTE(A2,CHAR(32)," ") instead of just A2 ??? ) It appear to give the correct results. _..... Here is one way I would do it using VBA Sub TrimRange() Let Range("B2:B9").Value = Evaluate("=If({1},TRIM(" & Range("A2:A9").Address & "))") End Sub Alan
This comment was minimized by the moderator on the site
I should have checked the Microsoft Doco: https://support.office.com/en-us/article/TRIM-function-410388fa-c5df-49c6-b16c-9e5630b479f9<br />".....The TRIM function was designed to trim the 7-bit ASCII space character (value 32) from text. In the Unicode character set, there is an additional space character ....." etc - hence the need to make sure the TRIM is working on Char 32 for any spaces...
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations