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
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:
4. Cliciwch OK, a dewiswch un gell lle rydych chi am roi'r canlyniad yn y blwch deialog canlynol, gweler y screenshot:
5. Ac yna cliciwch OK botwm, mae'r data a ddewiswyd gennych wedi'i drosi i ganlyn:
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?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!