Excel'de sabit aralıklarla belirli sayıda satır nasıl eklenir?

Excel çalışma sayfasında, mevcut satırlar arasına boş bir satır eklemek için Ekle işlevini kullanabilirsiniz. Ancak, çok geniş bir veri aralığınız varsa ve her üçüncü veya n'inci satırdan sonra iki boş satır eklemeniz gerekiyorsa, bu işi hızlı ve kolay bir şekilde nasıl tamamlayabilirsiniz?

• VBA kodu ile sabit aralıklarla veri aralığına belirli sayıda boş satır ekleme
• VBA kodu ile hücre değerlerine göre veri aralığına belirli sayıda boş satır ekleme
• Pratik bir özellik ile sabit aralıklarla veri aralığına belirli sayıda boş satır ekleme
• VBA kodu ile belirli sayılar temelinde satırları birden çok kez kopyalayıp ekleme
• Harika bir özellik ile belirli sayılar temelinde satırları birden çok kez kopyalayıp ekleme

VBA kodu ile sabit aralıklarla veri aralığına belirli sayıda boş satır ekleme

Aşağıdaki VBA kodu, mevcut verilerde her n'inci satırdan sonra belirli sayıda satır eklemenize yardımcı olabilir. Lütfen şu adımları izleyin:

1. Excel'de ALT + F11 tuşlarına basılı tutun, bu Microsoft Visual Basic for Applications penceresini açar.

2. Ekle Insert > Module'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Sabit aralıklarla veriye belirli sayıda satır ekleme

Sub InsertRowsAtIntervals()
'Updateby Extendoffice
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 yapıştırdıktan sonra, lütfen kodu çalıştırmak için F5 tuşuna basın, boş satırlar eklemek istediğiniz veri aralığını seçmenizi hatırlatan bir uyarı kutusu açılacaktır, ekran görüntüsüne bakın:

4. Tamam düğmesine tıklayın, başka bir uyarı kutusu açılacak, lütfen satır aralıklarının sayısını girin, ekran görüntüsüne bakın:

5. Tamam düğmesine tıklayarak devam edin, ardından açılan uyarı kutusunda eklemek istediğiniz boş satır sayısını girin, ekran görüntüsüne bakın:

6. Ardından Tamam'a tıklayın ve boş satırlar düzenli aralıklarla mevcut verilere eklenecektir, ekran görüntülerine bakın:

VBA kodu ile hücre değerlerine göre veri aralığına belirli sayıda boş satır ekleme

Bazen, boş satırları bir hücre değerleri listesine göre eklemeniz gerekebilir, bu durumda aşağıdaki VBA kodu size yardımcı olabilir, lütfen şu adımları izleyin:

1. Excel'de ALT + F11 tuşlarına basılı tutun, bu Microsoft Visual Basic for Applications penceresini açar.

2. Ekle Insert > Module'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Belirli sayıda boş satırı bir sayılar listesine göre ekleme:

Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub

3. Bu kodu yapıştırdıktan sonra, kodu çalıştırmak için F5 tuşuna basın, açılan iletişim kutusunda boş satırlar eklemek istediğiniz sayılar listesini seçin, ekran görüntüsüne bakın:

4. Ardından, Tamam'a tıklayın ve aşağıdaki ekran görüntülerinde gösterildiği gibi ihtiyacınız olan sonucu elde edeceksiniz:

Pratik bir özellik ile sabit aralıklarla veri aralığına belirli sayıda boş satır ekleme

Yukarıdaki VBA koduyla ilgili bilginiz yoksa, Kutools for Excel de size yardımcı olabilir; Insert Blank Rows & Columns özelliği, belirli sayıda satır veya sütunu mevcut verilere düzenli aralıklarla hızlı ve kolay bir şekilde ekleyebilir.

Kutools for Excel'i yükledikten sonra, lütfen şu adımları izleyin:

1. Aralıklarla boş satır eklemek istediğiniz veri aralığını seçin.

2. Kutools > Ekle > Insert Blank Rows & Columns'a tıklayın, ekran görüntüsüne bakın:

3. Insert Blank Row & Columns iletişim kutusunda, Ekleme Türü'nden Boş Satırlar seçeneğini seçin ve ardından kullanmak istediğiniz aralık ve boş satır sayısını aşağıdaki ekran görüntüsünde gösterildiği gibi belirtin:

4. Ardından Tamam düğmesine tıklayın ve aşağıdaki ekran görüntüsünde gösterildiği gibi boş satırlar seçilen aralığa belirli aralıklarla eklenecektir:

Kutools for Excel'i Şimdi İndirin ve Ücretsiz Deneyin!

VBA kodu ile belirli sayılar temelinde satırları birden çok kez kopyalayıp ekleme

Diyelim ki, bir veri aralığınız var ve şimdi her satırı kopyalamak ve aşağıdaki ekran görüntülerinde gösterildiği gibi bir sayılar listesine göre bir sonraki satıra birden çok kez yapıştırmak istiyorsunuz. Bu görevi Excel çalışma sayfasında nasıl çözebilirsiniz?

Bu işi halletmek için size yararlı bir kod tanıtacağım, lütfen aşağıdaki adımları izleyin:

1. Excel'de ALT + F11 tuşlarına basılı tutun, bu Microsoft Visual Basic for Applications penceresini açar.

2. Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Belirli sayılar temelinde satırları birden çok kez kopyalayıp ekleme:

Sub CopyRows()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the list of numbers to copy the rows based on: ", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub

If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub

3. Bu kodu yapıştırdıktan sonra, kodu çalıştırmak için F5 tuşuna basın, açılan iletişim kutusunda veri satırlarını kopyalamak ve eklemek istediğiniz sayılar listesini seçin, ekran görüntüsüne bakın:

4. Ardından, Tamam düğmesine tıklayın ve belirli sayıda satır her orijinal satırın altına kopyalanıp yapıştırılacaktır, ekran görüntülerine bakın:

Harika bir özellik ile belirli sayılar temelinde satırları birden çok kez kopyalayıp ekleme

Kutools for Excel'iniz varsa, hücre değeri temelinde Duplicate Rows / Columns özelliğini kullanarak, sayılar listesine göre satır veya sütunları hızlı ve kolay bir şekilde ekleyebilirsiniz.

Kutools for Excel'i yükledikten sonra, lütfen şu adımları izleyin:

1. Kutools > Ekle > Duplicate Rows / Columns based on cell value'ye tıklayın, ekran görüntüsüne bakın:

2. Copy and insert rows & columns iletişim kutusunda, Tür bölümünde Copy and insert rows seçeneğini seçin, ardından çoğaltmak istediğiniz veri aralığını seçin ve ardından satırları kopyalamak istediğiniz değerler listesini belirtin, ekran görüntüsüne bakın:

4. Ardından, Tamam veya Uygula düğmesine tıklayın, ihtiyacınız olan aşağıdaki sonucu elde edeceksiniz:

Kutools for Excel'i Şimdi İndirin ve Ücretsiz Deneyin!

Daha fazla ilgili makale: