İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Hansı hüceyrələrə hər bir x simvol əlavə etmək / əlavə etmək?

Şübhəsiz ki, aşağıdakı dördüncü ekran nəticə almaq üçün hüceyrələrə hər dörd simvoldan sonra tireləri və ya hər hansı digər ayırıcıları əlavə etmək istədiyim bir mətn dizisi var. Müəyyən xarakterləri daxil etmək üçün lazım olan çox sayda hüceyrə var, Exceldə hər dörd xarakter tire kəsmələri üçün hər hansı bir sürətli yol varmı?

Hər bir x simvolun VBA kodu ilə müəyyən bir xarakterə daxil edin

Excel üçün Kutools ilə hər bir x simvol müəyyən xarakterə daxil edin

Hər bir x xarakterini doc daxil edin 1


Mətn simasının əvvəlcədən / sonra / müəyyən mövqeyinə xüsusi xarakter əlavə et:

Excel üçün Kutools'S Mətn əlavə edin yardım proqramı, bütün hüceyrələrdən əvvəl və ya sonra xüsusi xarakter və ya məktub əlavə etməyə kömək edə bilər, eyni zamanda mətn stringsinin müəyyən mövqesindəki simvolu daxil edə bilər.

Hər bir x xarakterini doc daxil edin 11

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!


Hər bir x simvolun VBA kodu ilə müəyyən bir xarakterə daxil edin


Hər bir dörd simvoldan sonra xarakterlərə xüsusi bir xarakter daxil etmək üçün aşağıdakı VBA kodunu tətbiq edə bilərsiniz, xahiş edirəm:

1. Basıb saxlayın ALT + F11 Excel açarları və açar Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: Hər bir x simvol müəyyən xarakterə daxil edin

Sub InsertCharacter()
'Updateby20150813
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. Sonra basın F5 bu kodu çalıştırmak üçün düyməsini basın və mətn strings daxilində müəyyən karakteri daxil etmək istədiyiniz məlumatların aralığını seçməyi xatırlatmaq üçün bir əmr qutusu açılır, ekran görünüşünə baxın:

Hər bir x xarakterini doc daxil edin 2

4. və basın OK, aşağıdakı prompt qutusuna daxil edin, hər birindən sonra müəyyən bir xarakterə daxil etmək istədiyiniz nömrəni daxil edin, ekran görünüşünə baxın:

Hər bir x xarakterini doc daxil edin 3

5. Klikləyin OK, və aşağıdakı əmr qutusuna daxil edin, mətnə ​​əlavə etmək istədiyiniz müəyyən simvol daxil edin, ekran görüntüsünə baxın:

Hər bir x xarakterini doc daxil edin 4

6. Basın OK düyməsini basın və nəticə qutusuna nəticə çıxartmaq istədiyiniz bir kameranı seçin, ekran görünüşünə baxın:

Hər bir x xarakterini doc daxil edin 5

7. Nəhayət, basın OK, hər bir mətn simvoluna hər dörd simvol daxil olan müəyyən simvol, ekran görünüşünə baxın:

Hər bir x xarakterini doc daxil edin 6


Excel üçün Kutools ilə hər bir x simvol müəyyən xarakterə daxil edin

Yuxarıda göstərilən kodu bir çox Excel başlanğıcı üçün bir qədər çətin ola bilər, burada mənə lazımlı bir alət təqdim edə bilərəm - Excel üçün KutoolsOnun ilə Mətn əlavə edin xüsusilə, əvvəlcədən, sonra və ya hüceyrənin müəyyən mövqelərinə xüsusi bir mətn və ya xarakter əlavə edə bilərsiniz.

Excel üçün Kutools : 300-dən daha çox 60-dən istifadə etməklə, Excel-in əlavələri, XNUMX gündə heç bir məhdudiyyət yox idi.

Əgər quraşdırılmış varsa Excel üçün Kutoolsxahiş edirəm:

1. Belirli bir karakter eklemek istediğiniz veri aralığını seçin.

2. Sonra basın Kutools > Mətn > Mətn əlavə edin, bax ekran görüntüsü:

hər x xarakterli 7 7 doc daxil edin

3. İçində Mətn əlavə edin informasiya qutusuna, daxil etmək istədiyiniz bir simvol daxil edin Mətn qutusu seçin və seçin Mövqeyi göstərin mətn qutusuna, sonra mətn qutusuna daxil etmək istədiyiniz mövqelərə daxil edin, eyni zamanda nəticəni sağ paneldəki önizleyebilirsiniz, ekran görünüşünə baxın:

Hər bir x xarakterini doc daxil edin 8

Haqqında: Burada mətn qutusuna 4,8,12 yazın Dəqiqləşdirmək mətn dizesinin 4th, 8th və 12th simvollarından sonra xüsusi mətni daxil etdiyini göstərir.

4. Sonra basın Ok or tətbiq etmək düyməsi, müəyyən xarakter xüsusi mövqelərdə hüceyrə dəyərlərinə daxil edilmişdir.

Hər bir x xarakterini doc daxil edin 9  2 Hər bir x xarakterini doc daxil edin 10

Bu Add Text yardım proqramı haqqında daha ətraflı məlumat üçün buraya basın.

Excel İndi Download və pulsuz sınaq Kutools!


Demo: Excel üçün Kutools ilə hər bir x simvol müəyyən xarakterə daxil edin

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.