Excel'de sütunları satırlara nasıl devrik (transpose) eder ve verileri aşağı doğru doldurmak için otomatik olarak yeni satır eklerim?
Bu makalede, aşağıdaki ekran görüntüsünde gösterildiği gibi sütunları satırlara dönüştüren ve aynı verileri aşağı doğru doldurmak için yeni satırlar ekleyen bir VBA kodunu tanıtacağım. Bu işlem ilginizi çekiyorsa, daha fazla ayrıntı için lütfen aşağıya göz atın.
Devrik etme ve Satır ekleme işlemi VBA ile
Devrik etme ve Satır ekleme işlemi VBA ile
Bir aralığı devrik edip aynı verileri aşağı doğru doldurmak için doğrudan bir satır ekleme yolu bulunmamaktadır; ancak bu görevi hızlıca halletmeniz için size bir VBA kodu önerebilirim.
1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki VBA kodunu Modül penceresine yapıştırın. Ekran görüntüsüne bakın:
VBA: Satırları devirip yeni satır ekleyin.
Sub TransposeInsertRows()
'UpdatebyExtendoffice20161125
Dim xRg As Range
Dim i As Long, j As Long, k As Long
Dim x As Long, y As Long
Set xRg = Application.InputBox _
(Prompt:="Range Selection...", _
Title:="Kutools For Excel", Type:=8)
Application.ScreenUpdating = False
x = xRg(1, 1).Column + 2
y = xRg(1, xRg.Columns.Count).Column
For i = xRg(xRg.Rows.Count, 1).Row To xRg(1, 1).Row Step -1
If Cells(i, x) <> "" And Cells(i, x + 1) <> "" Then
k = Cells(i, x - 2).End(xlToRight).Column
If k > y Then k = y
For j = k To x + 1 Step -1
Cells(i + 1, 1).EntireRow.Insert
With Cells(i + 1, x - 2)
.Value = .Offset(-1, 0)
.Offset(0, 1) = .Offset(-1, 1)
.Offset(0, 2) = Cells(i, j)
End With
Cells(i, j).ClearContents
Next j
End If
Next i
Application.ScreenUpdating = True
End Sub
3. F5 tuşuna basarak kodu çalıştırın ve ardından açılan iletişim kutusunda, devrik etmek ve satır eklemek istediğiniz Veri Aralığı'nı seçin. Ekran görüntüsüne bakın:
4. Tamam'a tıklayın. Böylece Aralık, aşağıdaki ekran görüntüsünde gösterildiği gibi dönüştürülmüş olacaktır.
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar