İ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

Sütunları satırlara köçürmək və Excel-də data doldurmaq üçün yeni satırlar əlavə etmək üçün necə?

Bu yazıda sütunları satırlara köçürmək üçün bir VBA kodunu təqdim edirəm və bu əməliyyatla maraqlandığı təqdirdə aşağıda göstərilən ekran görüntüsünü doldurmaq üçün məlumatları doldurmaq üçün yeni satırlar əlavə edin, daha ətraflı məlumat üçün aşağıya baxın.
doc transpose insert satır 1

Transpose VBA ilə satır əlavə edin


arrow mavi sağ bubble Transpose VBA ilə satır əlavə edin


Bir sıra ötürmək və eyni məlumatları doldurmaq üçün satır əlavə etmək üçün birbaşa yol yoxdur, amma burada bu tapşırığı tez bir zamanda həll etmək üçün VBA kodunu təqdim edə bilərəm.

1. Basın Alt + F11 açmaq üçün açarlar Proqramlar üçün Microsoft Visual Basic pəncərə.

2. klik Taxmaq > Modulesvə VBA kodunun altına Modul pəncərəsinə yapışdırın. Ekran görüntüsünə baxın:

VBA: Transpose və satır daxil edin.

 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

doc transpose insert satır 2

3. Basın F5 kodunu çalıştırmak üçün düyməsini basın və sonra köçürmək istədiyiniz məlumatların aralığını seçin və satırları açılış dialoquna daxil edin. Ekran görüntüsünə baxın:
doc transpose insert satır 3

4. klik OK. Və seçilmiş aralık göstərilən ekran görüntüsünün altına çevrildi.
doc transpose insert satır 4

Qeyd: kodu çalıştırmadan əvvəl, orijinal məlumatın surətini saxlamaq daha yaxşı olardı.

İpucu.Bir cədvəldən tez bir şəkildə cədvəl siyahısına və ya əksinə keçirmək istəyirsinizsə, Excel üçün Kutools Transpose Cədvəl Ölçüləri aşağıdakı ekran görüntüsündə göstərildiyi kimi. 60 gün ərzində məhdudiyyətsiz tam funksiyadır, yükləyin və indi pulsuz bir sınaq versiyasını edin.

doc siyahıya çapraz keçid


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.
    Val · 1 years ago
    how would i change the VBA code so that it will keep more of the columns the same? for example instead of the first two columns staying the same it will be the first 4?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      I am not sure, may be you can try to change x = xRg(1, 1).Column + 2 to x = xRg(1, 1).Column + 4.
  • To post as a guest, your comment is unpublished.
    Chasles · 1 years ago
    If my cross table's informations come from formulas, those formulas don't always follow when the macro is applied. How could I fix this to make sure that the formulas are kept in the cells?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Hi, thank u for ur message. For solving your problem, you can apply Kutools' Convert Formula to Text before you running the macro, then after transposing thetable, apply Kutools' Convert Text to Formula. Please Let me know if it works. Thank u.