Note: The other languages of the website are Google-translated. Back to English

 Hücrelerdeki her x karakterden sonra boşluk nasıl eklenir / eklenir?

Bir çalışma sayfası listesinde birden çok metin dizeniz varsa, şimdi, aşağıda gösterilen ekran görüntüsü gibi hücrelerdeki her 3 veya x karakterden sonra boşluk eklemek istersiniz. Bu sorunu Excel'de hızlı ve kolay bir şekilde nasıl çözebilirsiniz?

doc x karakterden sonra boşluk ekle 1

VBA kodu ile hücrelerdeki her x karakterden sonra boşluk ekleyin / ekleyin

Kutools for Excel ile hücrelerdeki her x karakterden sonra boşluk ekle / ekle


ok mavi sağ balon VBA kodu ile hücrelerdeki her x karakterden sonra boşluk ekleyin / ekleyin

Aşağıdaki VBA kodunu uygulayarak, aynı anda birden çok hücre için her n karakterden sonra boşluğu hızla ekleyebilirsiniz, lütfen aşağıdaki işlemleri gerçekleştirin:

1. 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: Her x karakterden sonra boşluk ekleyin:

Sub addspace()
'updateby Extendoffice
    Dim i As Long
    Dim xCell As Range
    Dim xRg As Range
    Dim xTxt As String
    Dim xStr As String
    Dim xUpdate As Boolean
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xStr = xCell.Text
        xTxt = ""
        For i = 1 To Len(xStr) Step 4
            If xTxt = "" Then
                xTxt = Mid(xStr, i, 4)
            Else
                xTxt = Trim(xTxt) & " " & Mid(xStr, i, 4)
            End If
        Next
        xCell = xTxt
    Next
    Application.ScreenUpdating = xUpdate
End Sub

3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın ve bilgi istemi kutusunda, lütfen boşluk eklemek istediğiniz hücreleri seçin, ekran görüntüsüne bakın:

doc x karakterden sonra boşluk ekle 2

4. Ve sonra tıklayın OK düğmesi ve boşluklar her dört karakterden sonra hücre içeriğine eklenmiştir, ekran görüntülerine bakın:

doc x karakterden sonra boşluk ekle 3 2 doc x karakterden sonra boşluk ekle 4

not: Yukarıdaki kodda numarayı değiştirebilirsiniz 4 sonra boşluk eklemek için diğer numaraya. Ayrıca, bu kuraldaki sınırlayıcı alanı başka bir sınırlayıcıyla değiştirebilirsiniz. xTxt = Kırp (xTxt) & "" & Orta (xStr, i, 4) Yukarıdaki kod.


ok mavi sağ balon Kutools for Excel ile hücrelerdeki her x karakterden sonra boşluk ekle / ekle

Kutools for Excel'S Metin ekle özelliği ayrıca bu sorunu hızlı ve kolay bir şekilde çözmenize yardımcı olabilir.

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 şunları yapın :( Kutools for Excel'i Şimdi Ücretsiz İndirin! )

1. Boşluk eklemek istediğiniz metin dizelerini seçin.

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

3. In Metin ekle iletişim kutusunda boşluk çubuğuna bir kez basın. Metin kutusunu seçin ve Belirtmek altında seçenek Pozisyon, ardından boşluk eklemek istediğiniz konumları yazın, ekran görüntüsüne bakın:

doc x karakterden sonra boşluk ekle 6

4. Ve sonra tıklayın Ok or Tamam düğmesi, ihtiyaç duyduğunuz her dört karakterden sonra boşlukların eklendiği sonucunu alacaksınız.

İpuçları: Metin kutusundaki konumların sayısı virgülle ayrılmalıdır.

Kutools for Excel'i Şimdi Ücretsiz İndirin!


İlgili makale:

Hücrelere her x karakter belirli bir karakter nasıl eklenir / eklenir?


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-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 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ı
Yorumları sıralama ölçütü
Yorumlar (0)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır