Sut i drawsosod ystod a stacio data yn Excel yn hawdd ac yn gyflym?
Er enghraifft, mae rhywfaint o ddata yn cael ei arddangos mewn grwpiau, a nawr rydw i eisiau trawsosod yr ystod a stacio'r data ym mhob colofn fel y dangosir isod y llun. Yn yr erthygl hon, byddaf yn cyflwyno'r dulliau ar y dasg hon yn Excel.
Trawsosod a stacio data gyda VBA
Trawsosod a stacio data gyda Dimensiwn y Tabl Trawsosod
Trawsosod a stacio data gyda VBA
Gallwch gymhwyso cod VBA i drawsosod a stacio data.
1. Dewiswch ddata ac eithrio penawdau colofnau, a gwasgwch Alt + F11 allweddi i alluogi Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludo islaw'r cod i'r Modiwlau.
VBA: Trawsosod a Stacio data
Sub ConvertTableToList()
'UpdatebyExtendoffice20161121
Const TEST_COLUMN As String = "A"
Dim i As Long, j As Long
Dim iLastRow As Long
Dim iLastCol As Long
Application.ScreenUpdating = False
With ActiveSheet
iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = iLastRow To 2 Step -1
iLastCol = .Cells(i, .Columns.Count).End(xlToLeft).Column
For j = iLastCol To 3 Step -1
.Rows(i + 1).Insert
.Cells(i + 1, 2).Value = .Cells(i, j).Value
.Cells(i, j).Value = ""
Next j
Next i
.Rows(1).Delete
End With
Application.ScreenUpdating = True
End Sub
3. Gwasgwch F5 allwedd, ac yna mae'r data wedi cael eu trawsosod a'u pentyrru. Gweler y screenshot:
Nodyn: Yn y cod VBA, mae A yn nodi i roi'r data trawsosod yng ngholofn A y ddalen weithredol a disodli'r data gwreiddiol yng ngholofn A.
Trawsosod a stacio data gyda Dimensiwn y Tabl Trawsosod
Os ydych chi am drawsosod data amrediad a phentyrru heb god VBA yn gyflym ac yn hawdd, gallwch wneud cais Kutools ar gyfer Excel'S Trawsosod Dimensiwn y Tabl cyfleustodau.
Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. |
Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel isod:(Lawrlwythwch Kutools Am Ddim ar gyfer Excel Nawr!)
1. Dewiswch y data rydych chi'n ei ddefnyddio, cliciwch Kutools > Ystod > Trawsosod Dimensiynau Tabl. Gweler y screenshot:
2. Yn y dialog, gwiriwch Croes-fwrdd i'r rhestr opsiwn, a dewis cell rydych chi am roi'r data wedi'i thrawsnewid ynddi Amrediad canlyniadau (cell sengl) blwch testun. Gweler y screenshot:
3. Cliciwch Ok. Nawr mae'r amrediad wedi'i drawsosod a'i bentyrru mewn colofnau.
Trosi Data Ystod a Stac
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!