Note: The other languages of the website are Google-translated. Back to English
Oturum aç  \/ 
x
or
x
Kaydol  \/ 
x

or

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 Uygulamak 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 Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2019 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay dağıtım. Tam özellikli 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

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!
ofis tabanı
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Alan Elston · 4 years ago
    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
    • To post as a guest, your comment is unpublished.
      Alan Elston · 4 years ago
      I should have checked the Microsoft Doco: https://support.office.com/en-us/article/TRIM-function-410388fa-c5df-49c6-b16c-9e5630b479f9
      ".....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...