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?
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 |
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:
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:
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.
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:
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 Üretkenlik Araçları
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...
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!