Kako prenesti podvojene vrstice v stolpce v Excelu?

Če imate v Excelu nabor podatkov, bi radi podvojene vrstice prenesli v več stolpcev, kot je prikazano na sliki spodaj, ali imate kakšne dobre ideje za rešitev te naloge?

Prenesite podvojene vrstice v stolpce s kodo VBA

Prenesite podvojene vrstice v stolpce s kodo VBA

Na žalost v Excelu ni neposrednega načina, da bi se z njo ukvarjali, vendar lahko za njegovo rešitev ustvarite kodo VBA, naredite naslednje:

1. Drži dol ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic for Applications.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: Prenesite podvojene vrstice v več stolpcev

Sub ConvertTable()
'Updateby Extendoffice
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. Nato pritisnite F5 tipko za zagon te kode, izberite obseg podatkov, ki ga želite pretvoriti podvojene vrstice v več stolpcev v izpuščenem pogovornem oknu, glejte posnetek zaslona:

4. Kliknite OKin v naslednjem pogovornem oknu izberite eno celico, kamor želite postaviti rezultat, glejte posnetek zaslona:

5. In nato kliknite OK , so bili vaši izbrani podatki pretvorjeni v naslednje:

Odklenite Excel Magic z Kutools AI

• Pametna izvedba: Izvajajte celične operacije, analizirajte podatke in ustvarjajte grafikone – vse poganjajo preprosti ukazi.
• Formule po meri: Ustvarite prilagojene formule za poenostavitev delovnih tokov.
• Kodiranje VBA: Napišite in implementirajte kodo VBA brez truda.
• Razlaga formule: Z lahkoto razumejte zapletene formule.
• Prevajanje besedila: Odpravite jezikovne ovire v vaših preglednicah.

Izboljšajte svoje zmogljivosti Excela z orodji, ki jih poganja AI. Prenesi zdaj in izkusite učinkovitost kot še nikoli prej!

Sorodni članki:

Kako prenesti / pretvoriti stolpce in vrstice v eno vrstico?

Kako prenesti / pretvoriti stolpce in vrstice v en stolpec?

Kako prenesti / pretvoriti en stolpec v več stolpcev v Excelu?