Skip i'r prif gynnwys

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 doc a stacio 1

Trawsosod a stacio data gyda VBA

Trawsosod a stacio data gyda Dimensiwn y Tabl Trawsosod syniad da3


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

trawsosod doc a stacio 2

3. Gwasgwch F5 allwedd, ac yna mae'r data wedi cael eu trawsosod a'u pentyrru. Gweler y screenshot:
trawsosod doc a stacio 3

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:
trawsosod doc a stacio 4

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:
trawsosod doc a stacio 5

3. Cliciwch Ok. Nawr mae'r amrediad wedi'i drawsosod a'i bentyrru mewn colofnau.
trawsosod doc a stacio 6



Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

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...

Disgrifiad


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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations