Excel'deki verileri doldurmak için sütunları satırlara nasıl aktarabilir ve yeni satırlar nasıl ekleyebilirim?
Bu makalede, sütunları satırlara aktarmak ve aşağıda gösterilen ekran görüntüsü gibi verileri doldurmak için yeni satırlar eklemek için bir VBA kodu ekliyorum, bu işlemle ilgileniyorsanız, lütfen daha fazla ayrıntı için aşağıya gidin.
VBA ile satırların yerini değiştirin ve ekleyin
VBA ile satırların yerini değiştirin ve ekleyin
Bir aralığı aktarmanın ve aynı verileri doldurmak için satır eklemenin doğrudan bir yolu yoktur, ancak burada bu görevi hızlı bir şekilde çözmek için bir VBA kodu ekleyebilirim.
1. Basın Alt + F11 açmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modülve VBA kodunun altına Modül penceresine yapıştırın. Ekran görüntüsüne bakın:
VBA: Sıraları aktarın ve 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. Basın F5 kodu çalıştırmak için tuşuna basın ve ardından sırasını değiştirmek ve açılan iletişim kutusuna satır eklemek istediğiniz veri aralığını seçin. Ekran görüntüsüne bakın:
4. tık OK. Ve seçilen aralık, aşağıda gösterilen ekran görüntüsü gibi dönüştürüldü.
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!