İ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

Hücredəki hər x simvoldan sonra yer qoymaq / əlavə etmək üçün necə?

Çalışma kitabında bir neçə mətn dizesi varsa, indi aşağıdakı ekran görüntüsü kimi hər bir 3 və ya x simvoldan sonra yer qoymaq istəyirik. Excel-də bu problemi tez və asanlıqla necə həll edə bilərsən?

x x xarakterlərdən sonra boşluq əlavə edin 1

VBA kodlu hüceyrələrdə hər x simvoldan sonra yerə əlavə edin

Excel üçün Kutools ilə olan hüceyrələrdə hər x simvoldan sonra əlavə edin / əlavə edin


arrow mavi sağ bubble VBA kodlu hüceyrələrdə hər x simvoldan sonra yerə əlavə edin

Aşağıdakı VBA kodunu tətbiq edərkən, birdən çox hüceyrə üçün hər n simvoldan sonra bir yerə tez bir zamanda daxil edə bilərsiniz:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Sonra basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules pəncərə.

VBA kodu: Hər bir x simvoldan sonra yerə daxil edin:

Sub addspace()
'updateby Extendoffice 20151207
    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. Sonra basın F5 bu kodu çalıştırmak üçün açar düyməsini basın və xahiş edirik, xahiş edirik, yer qoymaq istədiyiniz hüceyrələri seçin, ekran görüntüsünü görə bilərsiniz:

x x xarakterlərdən sonra boşluq əlavə edin 2

4. Və sonra basın OK düyməsini basın və boşluqlar hər dörd simvoldan sonra hüceyrə məzmununa daxil edildi, ekran görüntülərinə baxın:

x x xarakterlərdən sonra boşluq əlavə edin 3  2 x x xarakterlərdən sonra boşluq əlavə edin 4

Qeyd: Yuxarıda göstərilən kodda nömrəni dəyişə bilərsiniz 4 sonra başqa yerə əlavə etmək üçün. Həm də bu qaydada məhdudlaşdırıcı məkanı başqa bir məhdudlaşdırıcıya dəyişə bilərsiniz xTxt = Trim (xTxt) & "" & Orta (xStr, i, 4) yuxarıda göstərilən kodun.


arrow mavi sağ bubble Excel üçün Kutools ilə olan hüceyrələrdə hər x simvoldan sonra əlavə edin / əlavə edin

Excel üçün Kutools'S Mətn əlavə edin xüsusiyyət də bu problemi tez və asanlıqla həll etməyə kömək edə bilər.

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.

Quraşdırıldıqdan sonra Excel üçün Kutools, xahiş edirəm :( İndi Excel üçün Pulsuz Kutools Download! )

1. Yer qoymaq istədiyiniz mətn dizələrini seçin.

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

x x xarakterlərdən sonra boşluq əlavə edin 5

3. İçində Mətn əlavə edin informasiya qutusuna bir dəfə boşluq çubuğuna basın Mətn qutusunu seçin və seçin Dəqiqləşdirmək altında seçimi mövqesonra boşluq yerləşdirmək istədiyiniz mövqeyi yazın, ekran görünüşünə baxın:

x x xarakterlərdən sonra boşluq əlavə edin 6

4. Və sonra basın Ok or tətbiq etmək düyməsini basın, siz lazım olan hər dörd simvoldan sonra boşluqların yerləşdiyi nəticəni əldə edəcəksiniz.

Haqqında: Mətn qutusunu göstərən vəzifələrin sayı virgüllə ayrılmalıdır.

İndi Excel üçün Pulsuz Kutools Download!


Əlaqədar məqalə:

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



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.