Excel'de belirli aralıklarla belirli sayıda satır nasıl eklenir?
Excel çalışma sayfasında, Ekle işlevini kullanarak mevcut satırlar arasına boş bir satır ekleyebilirsiniz. Ancak, geniş bir veri yelpazeniz varsa ve her üçüncü veya üçüncü satırdan sonra iki boş satır eklemeniz gerekiyorsa, bu işi nasıl hızlı ve kolay bir şekilde bitirebilirsiniz?
- VBA kodu ile sabit aralıklarla veri aralığına belirli sayıda boş satır ekleyin
- VBA kodu ile hücre değerlerine göre veri aralığına belirli sayıda boş satır ekleyin
- Kullanışlı bir özellikle sabit aralıklarla veri aralığına belirli sayıda boş satır ekleyin
- VBA kodu ile belirli numaralara göre satırları birden çok kez kopyalayın ve ekleyin
- Şaşırtıcı bir özellik ile belirli sayılara göre satırları birden çok kez kopyalayın ve ekleyin
VBA kodu ile sabit aralıklarla veri aralığına belirli sayıda boş satır ekleyin
Aşağıdaki VBA kodu, mevcut verilerdeki her n. Satırdan sonra belirli sayıda satır eklemenize yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın:
1. Basılı tutun ALT + F11 Excel'de anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.
VBA kodu: Verilere belirli aralıklarla belirli sayıda satır ekleyin
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 F5 Bu kodu çalıştırmak için tuşuna basın, boş satırlar eklemek istediğiniz veri aralığını seçmenizi hatırlatmak için bir istem kutusu açılır, ekran görüntüsüne bakın:
4. tıklayın OK düğmesi, başka bir istem kutusu açılacaktır, lütfen satır aralıklarının sayısını girin, ekran görüntüsüne bakın:
5. Tıklamaya git OK düğmesi, aşağıdaki açılır istem kutusunda, lütfen eklemek istediğiniz boş satır sayısını girin, ekran görüntüsüne bakın:
6. Sonra tıklayın OKve boş satırlar düzenli aralıklarla mevcut verilere eklenmiştir, 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 ekleyin
Bazen, hücre değerleri listesine dayalı olarak boş satırlar eklemeniz gerekebilir, bu durumda aşağıdaki VBA kodu size bir iyilik yapabilir, lütfen şu şekilde yapın:
1. Basılı tutun ALT + F11 Excel'de anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.
VBA kodu: Bir sayı listesine göre belirli sayıda boş satır girin:
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 F5 Bu kodu çalıştırmak için anahtar, açılan iletişim kutusunda, boş satırlar eklemek istediğiniz sayıların listesini seçin, ekran görüntüsüne bakın:
4. Daha sonra, OKve ihtiyacınız olan sonuçları aşağıdaki ekran görüntüleri olarak alacaksınız:
 |
|
 |
Kullanışlı bir özellikle sabit aralıklarla veri aralığına belirli sayıda boş satır ekleyin
Yukarıdaki VBA koduna aşina değilseniz, Kutools for Excel ayrıca size yardımcı olabilir, Boş Satırlar ve Sütunlar Ekle özelliği, mevcut verilere belirli aralıklarla hızlı ve kolay bir şekilde belirli sayıda satır veya sütun ekleyebilir.
Kurduktan sonra Kutools for Excellütfen aşağıdaki işlemleri yapın:
1. Aralıklarla boş satırlar eklemek istediğiniz veri aralığını seçin.
2. tıklayın Kutools > Ekle > Boş Satırlar ve Sütunlar Ekle, ekran görüntüsüne bakın:
3. In Boş Satır ve Sütunlar Ekle diyalog kutusunu seçiniz Boş satırlar seçeneği Tip ekleve ardından aşağıdaki gösterilen ekran görüntüsü olarak kullanmak istediğiniz aralık ve boş satır sayısını belirtin:
4. Sonra tıklayın OK düğmesi ve boş satırlar, gösterilen aşağıdaki ekran görüntüsü gibi belirli bir aralıkta seçilen aralığa eklenmiştir:
|
|
|
Kutools for Excel'i şimdi indirin ve ücretsiz deneyin!
VBA kodu ile belirli numaralara göre satırları birden çok kez kopyalayın ve ekleyin
Farz edelim ki, bir dizi tada'ya sahipsiniz ve şimdi, her satırı kopyalayıp aşağıda gösterilen ekran görüntülerine göre bir sayı listesine göre bir sonraki satıra birden çok kez yapıştırmak istiyorsunuz. Bu görevi Excel çalışma sayfasında nasıl çözebilirim?
 |
|
 |
Bu işin üstesinden gelmek için, size faydalı bir kod sunacağım, lütfen aşağıdaki adımları uygulayın:
1. Basılı tutun ALT + F11 Excel'de anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.
VBA kodu: Belirli numaralara göre satırları birden çok kez kopyalayın ve ekleyin:
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 F5 Bu kodu çalıştırmak için anahtar, açılan iletişim kutusunda, kopyalamak istediğiniz sayıların listesini seçin ve veri satırlarını temel alarak ekleyin, ekran görüntüsüne bakın:
4. Daha sonra, OK düğmesi ve belirli sayıda satır kopyalayıp her orijinal satırın altına yapıştırılmıştır, ekran görüntülerine bakın:
|
|
|
Şaşırtıcı bir özellik ile belirli sayılara göre satırları birden çok kez kopyalayın ve ekleyin
Eğer varsa Kutools for Excel, Onun ile Hücre değerine göre Yinelenen Satırları / Sütunları özelliği, sayıların listesine göre satırları veya sütunları hızlı ve kolay bir şekilde ekleyebilirsiniz.
Kurduktan sonra Kutools for Excellütfen aşağıdaki işlemleri yapın:
1. tıklayın Kutools > Ekle > Hücre değerine göre Yinelenen Satırları / Sütunları, ekran görüntüsüne bakın:
2. In Satırları ve sütunları kopyalayın ve ekleyin iletişim kutusunu seçin Satırları kopyala ve ekle seçeneği Tip bölümünde, çoğaltmak istediğiniz veri aralığını seçin ve ardından satırları temel alarak kopyalamak istediğiniz değerlerin listesini belirtin, ekran görüntüsüne bakın:
4. Daha sonra, Ok or Tamam düğmesi, ihtiyacınız olduğunda aşağıdaki sonucu alacaksınız:
|
|
|
Kutools for Excel'i şimdi indirin ve ücretsiz deneyin!
Daha ilgili makaleler:
- Satırı Birden Çok Kez Kopyala ve Ekle veya Satırı X Kez Çoğalt
- Günlük çalışmanızda, hiç bir satırı veya her satırı kopyalamayı ve ardından bir çalışma sayfasındaki geçerli veri satırının altına birden çok kez eklemeyi denediniz mi? Örneğin, bir hücre aralığım var, şimdi, her satırı kopyalamak ve aşağıdaki ekran görüntüsü gibi 3 kez sonraki satıra yapıştırmak istiyorum. Excel'de bu işle nasıl başa çıkabilirsiniz?
- Excel'de Değer Değiştiğinde Boş Satırlar Ekle
- Bir dizi veriye sahip olduğunuzu varsayarsak ve şimdi değer değiştiğinde veriler arasına boş satırlar eklemek istiyorsunuz, böylece bir sütundaki sıralı aynı değerleri aşağıda gösterilen ekran görüntüleriyle ayırabilirsiniz. Bu yazıda, bu sorunu çözmeniz için bazı püf noktalarından bahsedeceğim.
- Excel'de Belirli Metnin Arkasına Boş Satır Ekle
- Aşağıdaki ekran görüntüsü gibi belirli bir metinden sonra boş satırlar eklemek istiyorsanız, bunları tek tek manuel olarak eklemeden hızlı ve kolay bir şekilde nasıl başa çıkabilirsiniz?
- Kriterlere Dayalı Birden Çok Çalışma Sayfasından Satırları Yeni Bir Sayfaya Kopyala
- Diyelim ki, aşağıda gösterilen ekran görüntüsü ile aynı biçimlendirmeye sahip üç çalışma sayfası içeren bir çalışma kitabınız var. Şimdi, bu çalışma sayfalarından C sütununda "Tamamlandı" metnini içeren tüm satırları yeni bir çalışma sayfasına kopyalamak istiyorsunuz. Bunları tek tek elle kopyalayıp yapıştırmadan bu sorunu hızlı ve kolay bir şekilde nasıl çözebilirsiniz?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
