İ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

Excel-də xüsusi mətni yuxarıdakı boşluğu necə yerləşdirmək olar?

1 xüsusi mətn yuxarıda doc insert satır  2 2 xüsusi mətn yuxarıda doc insert satır

Bir iş üzərində işləyərkən, heç bir sütunda xüsusi bir mətnin üstündəki boşluq qoymağa çalışmısınız? Məsələn, A sütununda bəzi adlar var, indi, göstərilən sol ekran şəklində "Mike" adını ehtiva edən hüceyrələrin üstündə boş sətirlər əlavə etmək istərdim, bəlkə də bu vəzifəni Exceldə həll etmək üçün birbaşa yol yoxdur . Bu məqalə, Excel-də bu işlə məşğul olmaq üçün yaxşı bir fəndlər haqqında danışacağam.

VBA kodu ilə xüsusi mətnin yuxarı boş satırını daxil edin

Excel üçün Kutools ilə xüsusi mətnin yuxarı boş satırını daxil edin


Xüsusi mətni seçin və yuxarıdakı boş satırları əlavə edin:

ilə Excel üçün Kutools's Xüsusi Hüceyrələri seçin lazımi miqdarda mətni və ya nömrəni ehtiva bütün sətirləri tez bir şəkildə seçə bilərsiniz və sonra satırları silmək və ya mətnin yuxarıdakı bkank satırlarını mümkün qədər qısa müddətə əlavə edə bilərsiniz.

8 xüsusi mətn yuxarıda doc insert satır

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!


VBA kodu ilə xüsusi mətnin yuxarı boş satırını daxil edin


Müəyyən mətnin əlində birbaşa boşluq qoymaq üçün birdən çox vaxt sərf edəcəyik, buradakı boş satıranı müəyyən bir hüceyrə dəyərindən yuxarıda bir dəfə yerləşdirmək üçün VBA kodu yaradır.

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

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

VBA kodu: Müəyyən mətnin yuxarı həddindən yuxarı boş satırını daxil edin

Sub test1()
'updateby Extendoffice 20151030
    Dim i As Long
    Dim xLast As Long
    Dim xRng As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = Application.ActiveWindow.RangeSelection.Address
    Set xRng = Application.InputBox("please select the column with specific text:", "Kutools for Excel", xTxt, , , , , 8)
    If xRng Is Nothing Then Exit Sub
    If (xRng.Columns.Count > 1) Then
        MsgBox "the selected range must be one column", , "Kutools for Excel"
        Exit Sub
    End If
    xLast = xRng.Rows.Count
    For i = xLast To 1 Step -1
      If InStr(1, xRng.Cells(i, 1).Value, "Mike") > 0 Then
        Rows(xRng.Cells(i, 1).Row).Insert shift:=xlDown
      End If
    Next
End Sub

3. Sonra basın F5 bu kodu çalıştırmak üçün düyməsini basın və yuxarıdakı satırı daxil etmək istədiyiniz xüsusi mətni olan sütun məlumatlarını seçdiyinizi xatırlatmaq üçün bir əlaqə qutusu açılır, ekran görüntüsünə baxın:

3 xüsusi mətn yuxarıda doc insert satır

4. Və sonra basın OK düyməsini basıb satırlar "Mike" xüsusi mətnin üstünə qoyulmuşdur.

Qeyd: Yuxarıdakı kodda, mətnin dəyərini dəyişə bilərsiniz "Mike"Ssenari istəndiyiniz hər hansı digər dəyərlərə InStr (1, xRng.Cells (i, 1) .Value, "Mike")> 0 Sonra.


Excel üçün Kutools ilə xüsusi mətnin yuxarı boş satırını daxil edin

Əgər Excel üçün KutoolsOnun ilə Xüsusi Hüceyrələri seçin funksiyanı ilk olaraq müəyyən hüceyrə dəyərlərini seçə bilərsiniz və sonra bir dəfə boş satırlar əlavə etmək üçün Excel-in Əlavələr Satırlarını istifadə edin.

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 Kutoolsxahiş edirəm:

1. Istifadə etmək istədiyiniz məlumat aralığını seçin.

2. Sonra basın Kutools > seçmək > Xüsusi Hüceyrələri seçin, bax ekran görüntüsü:

4 xüsusi mətn yuxarıda doc insert satır

3. İçində Xüsusi Hüceyrələri seçin informasiya qutusu seçin Cell Altında Seçim növü, və sonra lazım olan meyarları müəyyənləşdirin Xüsusi tip bölmə, bu vəziyyətdə seçəcəyəm bərabər dən Xüsusi tip, və seçmək istədiyim adı daxil edin, ekran görüntüsünü görə bilərsiniz:

5 xüsusi mətn yuxarıda doc insert satır

4. Sonra basın Ok düyməsini, dəyəri olan bütün hüceyrələri Mike bir dəfə seçilir, ekran görünüşünə baxın:

6 xüsusi mətn yuxarıda doc insert satır

5. Müəyyən mətn hüceyrələrini seçdikdən sonra, klikləyin ev > Taxmaq > Sətir satırını daxil edin, və boş satırlar seçilmiş mətnin üstünə daxil ediləcək, ekran görüntülərinə baxın:

7 xüsusi mətn yuxarıda doc insert satır  2 2 xüsusi mətn yuxarıda doc insert satır

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


Demo: Excel üçün Kutools ilə xüsusi mətnin üstündəki boş satırı 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.
  • To post as a guest, your comment is unpublished.
    JK · 9 months ago
    This has been amazing for the data I have. I was wondering if you could help me one step further. I have been able to split my data based on this, but then I need to colour code my groups of data. When I split my data I have a variable number of rows from 1-50, and I have 36 columns of data including 32 columns that I need to compare the values within to the top row. I am currently manually selecting each group (as separated by a blank row) and then using ctrl+shift+| to highlight column differences, and formatting those cells to highlight the differences.


    Is there anyone who could write a code to select and format those column differences within the groupings, using the blank row as a separator?
  • To post as a guest, your comment is unpublished.
    SSJ · 2 years ago
    Hi, i have a similar problem as the one above.
    What if i want to select the cell below a specified criteria?

    For example, you can use the example from above. i want to select the cell below "Mike". is there any easy way out?
    • To post as a guest, your comment is unpublished.
      Shawn · 1 years ago
      @SSJ did you ever find a solution?
      • To post as a guest, your comment is unpublished.
        skyyang · 1 years ago
        Hello, guys,

        To insert blank rows below a specific cell value, you can apply the following code:

        Sub BlankLine()
        Dim Rng As Range
        Dim WorkRng As Range
        On Error Resume Next
        xTitleId = "KutoolsforExcel"
        Set WorkRng = Application.Selection
        Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
        Set WorkRng = WorkRng.Columns(1)
        xLastRow = WorkRng.Rows.Count
        Application.ScreenUpdating = False
        For xRowIndex = xLastRow To 1 Step -1
        Set Rng = WorkRng.Range("A" & xRowIndex)
        If Rng.Value = "Mike" Then
        Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown
        End If
        Next
        Application.ScreenUpdating = True
        End Sub

        Please change the criteria "Mike" to your own cell value.

        Hope it can help you, thank you!