İ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

Excel-də sütunlara cüt satırlar necə köçürülür?

Sizdə Excel-də bir sıra məlumatlar olduğunu düşünürsünüzsə, indi, bir neçə sütun üçün dublikat satırlarını köçürmək istərdiniz, bu ekran görüntüsünün göstərildiyi kimi, bu vəzifəni həll etmək üçün yaxşı fikirləriniz varmı?

VBA kodu ilə sütunlara cüt köçürmə sətirlərini köçürün

doc-çevirmək-dublikat-satırlar-sütunlar-1


Bir sütun və ya satırı bir aralığa və ya əksinə çevirmək:
ilə Excel üçün Kutools'S Transform Range xüsusilə bir sıra hüceyrələri bir satır ya da sütuna çevirə bilərsiniz, ayrıca bir sıra və ya sütunu bir sıra hüceyrələrə çevirə bilərsiniz. Bu xüsusiyyət haqqında ətraflı oxuyun ...
doc transpose üçündür

arrow mavi sağ bubble VBA kodu ilə sütunlara cüt köçürmə sətirlərini köçürün


Təəssüf ki, Excel ilə bununla məşğul olmaq üçün birbaşa yol yoxdur, ancaq bunu həll etmək üçün VBA kodunu yarada bilərsiniz:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modul Pəncərəsi.

VBA kodu: Çox sütunlara çoğaltılan satırları köçürün

Sub ConvertTable()
'Update 20150113
Dim xArr1 As Variant
Dim xArr2 As Variant
Dim InputRng As Range, OutRng As Range
Dim xRows As Long
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xArr1 = InputRng.Value
t = UBound(xArr1, 2): xRows = 1
With CreateObject("Scripting.Dictionary")
    .CompareMode = 1
    For i = 2 To UBound(xArr1, 1)
        If Not .exists(xArr1(i, 1)) Then
            xRows = xRows + 1: .Item(xArr1(i, 1)) = VBA.Array(xRows, t)
            For ii = 1 To t
                xArr1(xRows, ii) = xArr1(i, ii)
            Next
        Else
            xArr2 = .Item(xArr1(i, 1))
            If UBound(xArr1, 2) < xArr2(1) + t - 1 Then
                ReDim Preserve xArr1(1 To UBound(xArr1, 1), 1 To xArr2(1) + t - 1)
                For ii = 2 To t
                    xArr1(1, xArr2(1) + ii - 1) = xArr1(1, ii)
                Next
            End If
            For ii = 2 To t
                xArr1(xArr2(0), xArr2(1) + ii - 1) = xArr1(i, ii)
            Next
            xArr2(1) = xArr2(1) + t - 1: .Item(xArr1(i, 1)) = xArr2
        End If
    Next
End With
OutRng.Resize(xRows, UBound(xArr1, 2)).Value = xArr1
End Sub

3. Sonra basın F5 bu kodu çalıştırmak üçün açar, çoğaltılan satırları açılan dışarıdan informasiya qutusunda birdən çox sütuna dönüştürmek istediğiniz veri aralığını seçin, ekran görüntüsüne baxın:

doc-çevirmək-dublikat-satırlar-sütunlar-2

4. Basın OKnəticəni aşağıdakı informasiya qutusunda yerləşdirmək istədiyiniz bir hüceyrəni seçin, ekran görüntüsünə baxın:

doc-çevirmək-dublikat-satırlar-sütunlar-3

5. Və sonra basın OK düyməsini seçdiyiniz məlumatlar aşağıdakılara çevrildi:

doc-çevirmək-dublikat-satırlar-sütunlar-4


Əlaqəli məqalələr:

Sütunları və satırları tək sıraya köçürmək / çevirmək necədir?

Sütunları və satırları tək sütuna çevirmək / dəyişdirmək necədir?

Bir sütunu Excel-də birdən çox sütuna köçürmək / çevirmək necədir?



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.
    Joe · 7 months ago
    This works fine for me with different number of duplicates Brian. I only had a problem with the first duplicate showing twice on my output, but that was very minor. I only wish I knew how to make it copy the duplicate results into a comma delimited format instead of new columns for each one.
  • To post as a guest, your comment is unpublished.
    Brian · 8 months ago
    Only works if there's the same number of duplicates and call him a. It doesn't work at if have different numbers of duplicates.
  • To post as a guest, your comment is unpublished.
    Alex · 2 years ago
    Really great. Saved me a lot of time
  • To post as a guest, your comment is unpublished.
    Jon · 2 years ago
    I am so incredibly happy this worked. You are my hero!!!!
  • To post as a guest, your comment is unpublished.
    Santosh · 3 years ago
    Awesome Example - saved me a lot of time.
    Thank You so much !!!