Hücrelere her x karakter belirli bir karakter nasıl eklenir / eklenir?
Diyelim ki, aşağıdaki ekran görüntüsünü elde etmek için her dört karakterden sonra hücrelere tire veya başka ayırıcılar eklemek istediğim metin dizelerinin bir listesi var. Belirli bir karakteri eklemek için çok fazla hücreye ihtiyaç var, Excel'de her dört karakterde bir çizgi eklemenin hızlı bir yolu var mı?
Her x karakterde belirli bir karakteri VBA kodu ile hücreye ekleyin
Kutools for Excel ile her x karakterini hücreye belirli bir karakter ekleyin
Her x karakterde belirli bir karakteri VBA kodu ile hücreye ekleyin
Hücrelere her dört karakterden sonra belirli bir karakter eklemek için aşağıdaki VBA kodunu uygulayabilirsiniz, lütfen aşağıdaki işlemleri gerçekleştirin:
1. Basılı tutun ALT + F11 Excel'de anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Her x karaktere belirli bir karakteri hücreye ekleyin
Sub InsertCharacter()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim xRow As Integer
Dim xChar As String
Dim index As Integer
Dim arr As Variant
Dim xValue As String
Dim outValue As String
Dim xNum As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)
xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xNum = 1
For Each Rng In InputRng
xValue = Rng.Value
outValue = ""
For index = 1 To VBA.Len(xValue)
If index Mod xRow = 0 And index <> VBA.Len(xValue) Then
outValue = outValue + VBA.Mid(xValue, index, 1) + xChar
Else
outValue = outValue + VBA.Mid(xValue, index, 1)
End If
Next
OutRng.Cells(xNum, 1).Value = outValue
xNum = xNum + 1
Next
End Sub
3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın ve metin dizelerine belirli bir karakter eklemek istediğiniz veri aralığını seçmenizi hatırlatmak için bir istem kutusu açılır, ekran görüntüsüne bakın:
4. Ve tıklayın OK, aşağıdaki komut kutusuna, lütfen her bir karakter eklemek istediğiniz sayıyı girin, ekran görüntüsüne bakın:
5. Tıklamaya git OKve takip eden istem kutusuna lütfen metne eklemek istediğiniz belirli karakteri girin, ekran görüntüsüne bakın:
6. tıklayın OK düğmesini tıklayın ve sonucu istem kutusunda çıkarmak istediğiniz bir hücre seçin, ekran görüntüsüne bakın:
7. Sonunda, tıklayın OK, belirli bir karakter her metin dizesine her dört karakterde bir eklenmiştir, ekran görüntüsüne bakın:
Kutools for Excel ile her x karakterini hücreye belirli bir karakter ekleyin
Yukarıdaki kod, çoğu Excel acemi için biraz zor olabilir, burada kullanışlı bir araç sunabilirim - Kutools for Excel, Onun ile Metin ekle özelliği, hücre değerinin önüne, arkasına veya belirli konumlarından hızlı bir şekilde belirli bir metin veya karakter ekleyebilirsiniz.
Kutools for Excel : 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. |
Yüklediyseniz Kutools for Excellütfen aşağıdaki işlemleri yapın:
1. Belirli bir karakter eklemek istediğiniz veri aralığını 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 eklemek istediğiniz karakteri belirtin. Metin kutusunu seçin ve ardından seçin Konumdan belirtin bölümünde, metin kutusuna karakter eklemek istediğiniz pozisyonları girin, aynı zamanda sonucu sağ bölmede önizleyebilirsiniz, ekran görüntüsüne bakın:
İpuçları: Burada metin kutusuna 4,8,12 yazıyorum Belirtmek metin dizesinin 4., 8. ve 12. karakterlerinden sonra belirli metni eklemeyi belirtir.
4. Sonra tıklayın Ok or Tamam düğmesi, belirtilen karakter belirli konumlardaki hücre değerlerine eklenmiştir.
Bu Metin Ekle yardımcı programı hakkında daha fazla ayrıntı öğrenmek için tıklayın.
Kutools for Excel'i şimdi indirin ve ücretsiz deneyin!
Demo: Kutools for Excel ile her x karakterini hücreye belirli bir karakter ekleyin
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!