Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako prenesti podvojene vrstice v stolpce v Excelu?

Če želite, da v Excelu zdaj imate vrsto podatkov, zdaj želite prenesti podvojene vrstice v več stolpcev, kot je prikazano na zaslonu, ali imate kakšne dobre ideje za rešitev te naloge?

Prenesite podvojene vrstice v stolpce s kodo VBA

doc-convert-duplicate-vrstice-stolpci-1


Preoblikovanje enega stolpca ali vrstice v obseg ali obratno:
z Kutools za ExcelJe Transformski obseg funkcijo, lahko hitro pretvorite niz celic v eno vrstico ali stolpec, lahko tudi pretvorite eno vrstico ali stolpec v obseg celic. Preberite več o tej funkciji ...
doc transpose range

puščica modra desno mehurček Prenesite podvojene vrstice v stolpce s kodo VBA


Na žalost ni neposrednega načina, da bi se z njim ukvarjali v Excelu, lahko pa ga ustvarite s kodo VBA, če želite to storiti, storite takole:

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

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Okno modula.

VBA koda: prenesite podvojene vrstice v več stolpcev

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. Nato pritisnite F5 Če želite zagnati to kodo, izberite obseg podatkov, v katerega želite pretvoriti podvojene vrstice v več stolpcev v pop-up pogovornem oknu. Oglejte si posnetek zaslona:

doc-convert-duplicate-vrstice-stolpci-2

4. Kliknite OKin izberite eno celico, kamor želite dati rezultat v naslednjem pogovornem oknu, si oglejte posnetek zaslona:

doc-convert-duplicate-vrstice-stolpci-3

5. In nato kliknite OK gumb, so bili izbrani podatki pretvorjeni v naslednje načine:

doc-convert-duplicate-vrstice-stolpci-4


Sorodni članki:

Kako prenesti / pretvoriti stolpce in vrstice v eno vrstico?

Kako prenesti / pretvoriti stolpce in vrstice v en sam stolpec?

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



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!

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 · 9 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 · 10 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 · 3 years ago
    I am so incredibly happy this worked. You are my hero!!!!
  • To post as a guest, your comment is unpublished.
    Santosh · 4 years ago
    Awesome Example - saved me a lot of time.
    Thank You so much !!!