Note: The other languages of the website are Google-translated. Back to English

Sut i drosi rhesi dyblyg i golofnau yn Excel?

Gan dybio bod gennych chi ystod o ddata yn Excel, nawr, hoffech chi drosi'r rhesi dyblyg i golofnau lluosog fel y dangosir y screenshot canlynol, a oes gennych chi unrhyw syniadau da i ddatrys y dasg hon?

Trosi rhesi dyblyg i golofnau gyda chod VBA

doc-trosi-dyblygu-rhesi-colofnau-1


swigen dde glas saeth Trosi rhesi dyblyg i golofnau gyda chod VBA

Yn anffodus, nid oes unrhyw ffordd uniongyrchol ichi ddelio ag ef yn Excel, ond gallwch greu cod VBA i'w ddatrys, gwnewch fel a ganlyn:

1. Dal i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Trosi rhesi dyblyg i golofnau lluosog

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. Yna pwyswch F5 allwedd i redeg y cod hwn, dewiswch yr ystod ddata rydych chi am drosi'r rhesi dyblyg yn golofnau lluosog yn y dialog popped allan, gweler y screenshot:

doc-trosi-dyblygu-rhesi-colofnau-2

4. Cliciwch OK, a dewiswch un gell lle rydych chi am roi'r canlyniad yn y blwch deialog canlynol, gweler y screenshot:

doc-trosi-dyblygu-rhesi-colofnau-3

5. Ac yna cliciwch OK botwm, mae'r data a ddewiswyd gennych wedi'i drosi i ganlyn:

doc-trosi-dyblygu-rhesi-colofnau-4


Erthyglau perthnasol:

Sut i drawsosod / trosi colofnau a rhesi yn rhes sengl?

Sut i drawsosod / trosi colofnau a rhesi yn golofn sengl?

Sut i drawsosod / trosi colofn sengl yn golofnau lluosog yn Excel?


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab

 

sylwadau (8)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Enghraifft Awesome - wedi arbed llawer o amser i mi. Diolch yn fawr iawn !!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr!

Duw Bendithia chi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n hynod falch bod hyn wedi gweithio. Rwyt ti'n fy arwr!!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwych iawn. Wedi arbed llawer o amser i mi
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dim ond yn gweithio os oes yr un nifer o gopïau dyblyg a ffoniwch ef a. Nid yw'n gweithio os oes ganddo nifer gwahanol o gopïau dyblyg.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn gweithio'n iawn i mi gyda nifer gwahanol o ddyblygiadau Brian. Dim ond problem gyda'r dyblyg cyntaf yn dangos ddwywaith ar fy allbwn oedd gennyf, ond mân iawn oedd hynny. Dim ond pe bawn i'n gwybod sut i wneud iddo gopïo'r canlyniadau dyblyg i fformat wedi'i gyfyngu gan goma yn hytrach na cholofnau newydd ar gyfer pob un hoffwn pe bawn yn gwybod.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! All unrhyw un fy helpu...

Fe wnes i ddod o hyd i'r cod hwn i droi rhesi o ddata gydag ID unigryw yn rhes sengl fesul ID gyda cholofnau lluosog (colofn leiaf 5 - gan gynnwys ID, colofnau uchafswm 25 - gan gynnwys ID). Yna mae'n dileu pob un o'r rhesi dyblyg yn seiliedig ar ID unigryw. Mae'r math hwn o god yn gweithio, yr unig broblem yw nad yw'n trosglwyddo dwy golofn o ddata.

Mae nifer y rhesi o ddata fesul ID unigryw yn amrywio o 1 i 6 (felly byddai angen o leiaf 5 colofn arnaf i uchafswm o 25 colofn)

Mae yna 20,000 o resi o ddata ond gallaf dorri'r data fesul adran am o leiaf 5,000 o resi o ddata a rhedeg pob adran ar wahân.

Diolch am eich help!


Mae fy nata yn edrych rhywbeth fel hyn

ABCDE
ID DISGRIFIAD STATE # DYDDIAD
3 CPR US 567 6/19/2019
3 AET US 568 6/19/2019
4 CPR UD 6/19/2019
4 AET
4 AED

ac ati

Rwyf am iddo edrych fel hyn

ABCDEFGHIJKLM ETC.....
ID DISGRIFIAD STATE # DYDDIAD DISGRIFIAD STATE # DYDDIAD DISGRIFIAD STATE # DYDDIAD
3 CPR US 567 6/19/2019 AET US 568 6/19/2019
4 CPR UD AET US AED UD

Dyma'r cod y canfûm fod y math hwnnw o waith (yn ôl pob tebyg ar gyfer yr hyn y'i hysgrifennwyd, dim ond y data yng ngholofnau D ac E y mae'n eu cario drosodd ac yn hepgor colofn B & C... gan adael dwy golofn wag fesul set ddata. Rwy'n hoffi hynny. mae'n dileu'r copïau dyblyg ar ôl symud yr holl ddata i un golofn yn seiliedig ar ID unigryw

Is-gyfeiriadau_I_Colofnau()

Dim Rhes olaf Cyn Hir
Cyfeiriad Dim Cyfrif Fel Cyfanrif: addressCount = 0

lastRow = Amrediad("A" & Rows.Count).Diwedd(xlUp).Rhes

Am i = lastRow I 3 Step -1
Os Celloedd(i, 1).Gwerth = Celloedd(i - 1, 1).Gwerth Yna
addressCount = addressCount + 1
Ystod (Celloedd(i - 1, 10), Celloedd(i - 1, (cyfeiriadCyfeiriad * 5) + 10)) = Ystod(Celloedd(i, 4), Celloedd(i, (cyfeiriadCyfeiriad * 5) + 4)). Gwerth
Rhesi(i).Dileu
arall
cyfeiriadCount = 0
Gorffennwch Os
Nesaf i

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
helo bawb

Rwyf wedi rhoi cynnig ar y cod hwn ac fe weithiodd yn llwyddiannus.

Fy nghwestiwn yw Sut allwn i wneud yr un peth gan ddefnyddio Ms Access ar gyfer data mwy a allai gael ymholiad yn gweithio'r un peth ai peidio?

Diolch yn fawr iawn .
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir