İ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ə sabit aralıklarla xüsusi satırlar daxil etmək necədir?

Excel iş səhifəsində, əlavə funksiyası istifadə edərək, mövcud satırlar arasında boş bir sıra əlavə edə bilərsiniz. Bəzi məlumatlarınız varsa və hər üçüncü satırdan sonra iki boş satır əlavə etsəniz, bu işi tez və rahat şəkildə necə bitirə bilərsən?

VBA koduyla sabit aralıklarla məlumatların xüsusi sayını daxil edin

Excel üçün Kutools ilə sabit aralıklarla məlumatların xüsusi sayını daxil edin


Sabit aralıklarla məlumatlara satır və ya sütunların xüsusi sayını daxil edin:

Excel üçün Kutools'S Boş Satır və Sütunlar daxil edin hər hansı digər və ya nth satır və ya sütunları mövcud məlumatlara daxil etməyə kömək edə bilər.

doc-insert-satır-dəyər-dəyişikliklər-17

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!



Aşağıdakı VBA kodu, mövcud məlumatlar içərisində hər bir nth satırından sonra müəyyən bir sıra satırınıza kömək edə bilər. 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 Modul Pəncərəsi.

VBA kodu: Sabit aralıklarla məlumatların xüsusi sayını daxil edin

Sub InsertRowsAtIntervals()
'Updateby20150707
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
    xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
    Application.Selection.EntireRow.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. Bu kodu bağladıktan sonra, basın F5 bu kodu çalıştırmak üçün bir tuşa basın, boş bir satır eklemek istediğiniz veri aralığının seçilmesini istəməyiniz üçün bir istenen kutu açılır, ekran görüntüsüne baxın:

1 intervalı ilə doc daxil satır

4. Basın OK düyməsini, başqa bir əmr qutusu açılacaq, xahiş edirik sıra aralıklarının sayını daxil edin, ekran görünüşünə baxın:

2 intervalı ilə doc daxil satır

5. Klikləyin OK aşağıdakı düyməni basdıqda, əlavə etmək istədiyiniz boş satırların sayını daxil edin, ekran görüntüsünə baxın:

3 intervalı ilə doc daxil satır

6. Sonra basın OK, və boş satırlar mövcud məlumatlara müntəzəm olaraq aralıqlarla daxil edilmişdir, bax ekran görüntüsü:

4 intervalı ilə doc daxil satır


VBA kodundan yuxarı deyilsinizsə, Excel üçün Kutools da sizə kömək edə bilər, Boş Satır və Sütunlar daxil etmə xüsusiyyətləri müəyyən bir sıra və ya sütunların müəyyən bir aralıqlarla tez və asanlıqla mövcud məlumatları daxil 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 Kutoolsxahiş edirəm:

1. Aralarla boş satırlar daxil etmək istədiyiniz məlumat aralığını seçin.

2. Basın Kutools > Taxmaq > Boş Satır və Sütunlar daxil edin, bax ekran görüntüsü:

5 5 intervalı ilə doc daxil satır

3. İçində Boş Satır və Sütunlar daxil edin dialoq qutusunu seçin Boş satırlar or Boş sütunlar sizə lazımdır Tipi daxil edin, və sonra göstərilən ekran görüntüsü kimi istifadə etmək istədiyiniz aralıq və boş satırların sayını müəyyənləşdirin:

6 intervalı ilə doc daxil satır

4. Sonra basın OK düyməsini basıb və göstərilən ekran görüntüsü kimi müəyyən aralıklarda boşluqlar seçilmiş aralığa daxil edilir:

7 intervalı ilə doc daxil satır

Bu Boş Satır və Sütunlar proqramını əlavə edin.

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


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.
    PK · 3 months ago
    hi how can I get the code for Insert specific number of columns into data at fixed intervals
    • To post as a guest, your comment is unpublished.
      skyyang · 3 months ago
      Hello, PK,
      To insert blank columns into existing data at specific intervals, the below VBA code can help you! Please try it.

      Sub InsertColumnsAtIntervals()
      Dim Rng As Range
      Dim xInterval As Integer
      Dim xCs As Integer
      Dim xCCount As Integer
      Dim xNum1 As Integer
      Dim xNum2 As Integer
      Dim WorkRng As Range
      Dim xWs As Worksheet
      xTitleId = "KutoolsforExcel"
      Set WorkRng = Application.Selection
      Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
      xCCount = WorkRng.Columns.Count
      xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
      xCs = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
      xNum1 = WorkRng.Column + xInterval
      xNum2 = xCs + xInterval
      Set xWs = WorkRng.Parent
      For I = 1 To Int(xCCount / xInterval)
      xWs.Range(xWs.Cells(WorkRng.Row, xNum1 + xCs - 1), xWs.Cells(WorkRng.Row, xNum1)).Select
      Application.Selection.EntireColumn.Insert
      xNum1 = xNum1 + xNum2
      Next
      End Sub
  • To post as a guest, your comment is unpublished.
    Martin · 11 months ago
    Fantastic - you saved me a lot of mindless data entry, thank you very much
  • To post as a guest, your comment is unpublished.
    Manish · 1 years ago
    Hi


    I use interval vba code its working..But when I use above 100000 rows it not working.. kindly suggest what should I change if any.


    Sub InsertRowsAtIntervals()
    'Updateby20150707
    Dim Rng As Range
    Dim xInterval As Integer
    Dim xRows As Integer
    Dim xRowsCount As Integer
    Dim xNum1 As Integer
    Dim xNum2 As Integer
    Dim WorkRng As Range
    Dim xWs As Worksheet
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    xRowsCount = WorkRng.Rows.Count
    xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
    xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
    xNum1 = WorkRng.Row + xInterval
    xNum2 = xRows + xInterval
    Set xWs = WorkRng.Parent
    For i = 1 To Int(xRowsCount / xInterval)
    xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
    Application.Selection.EntireRow.Insert
    xNum1 = xNum1 + xNum2
    Next
    End Sub
  • To post as a guest, your comment is unpublished.
    Atif · 1 years ago
    Thanks AloT!!
  • To post as a guest, your comment is unpublished.
    Stephanie · 1 years ago
    thank you so much!!!!! this is amazing