Sut i drawsosod / trosi colofnau a rhesi yn rhes sengl?
Sut i ymuno â rhesi a cholofnau lluosog i mewn i un rhes hir? Efallai, mae'n ymddangos yn hawdd i chi, oherwydd gallwch chi eu copïo fesul un ac ymuno â nhw mewn rhes â llaw. Ond bydd yn cymryd llawer o amser ac yn ddiflas os oes cannoedd o resi a cholofnau. Yma, byddaf yn siarad am rai triciau cyflym i'w datrys.
Trawsosod / Trosi colofnau a rhesi yn rhes sengl gyda fformiwla
Trawsosod / Trosi colofnau a rhesi yn rhes sengl gyda chod VBA
Trawsosod / Trosi colofnau a rhesi yn rhes sengl gyda Kutools for Excel
Trawsosod / Trosi colofnau a rhesi yn rhes sengl gyda fformiwla
Gan dybio bod gennych ystod o ddata fel y dengys sioeau sgrinlun, gallwch drosi'r data amrediad yn un rhes mewn taflen waith newydd gyda fformiwla hir.
Defnyddiwch y fformiwla fel hyn:
1. Mewn taflen waith newydd o'r llyfr gwaith gweithredol, cliciwch cell A1, copïwch a gludwch y fformiwla hon: =OFFSET(Sheet1!$A$1,((ROW()-1)*5)+(FLOOR(COLUMN()-1,4)/4),(COLUMN()-1)-(FLOOR(COLUMN()-1,4)))
Nodyn: Taflen1! $ A $ 1 yw'r daflen waith a'r cyfeiriadau amrediad rydych chi am eu defnyddio.
ROW () - 1) * 5 yn y fformiwla uchod, 5 yn sefyll am rif y rhes; a COLUMN () - 1,4) / 4, 4 yn sefyll am rif y golofn. Gallwch eu newid fel eich angen.
2. Yna llusgwch yr handlen llenwi drosodd i'r dde nes bod rhif 0 yn ymddangos. Yn yr achos hwn, mae'r holl ddata yn yr ystod wedi'i drosi'n rhes sengl mewn taflen waith newydd. Gweler y screenshot:
Trawsosod / Trosi colofnau a rhesi yn rhes sengl gyda chod VBA
Gall y cod VBA canlynol hefyd eich helpu i drosi ystod o ddata i un rhes.
1. Daliwch y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau ffenestr.
Sub TransformOneRow()
'Updateby20131120
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Ranges to be transform :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Paste to (single cell):", xTitleId, Type:=8)
Application.ScreenUpdating = False
xRows = InputRng.Rows.Count
xCols = InputRng.Columns.Count
For i = 1 To xRows
InputRng.Rows(i).Copy OutRng
Set OutRng = OutRng.Offset(0, xCols + 0)
Next
Application.ScreenUpdating = True
End Sub3. Yna pwyswch F5 yn allweddol i redeg y cod, mae dialog wedi'i popio allan i chi ddewis ystod o gynnwys rydych chi am ei drosi'n rhes, a chlicio Ok, deialog popped-up arall yw i chi ddewis un gell i roi'r canlyniad allan. Gweler sgrinluniau:
 |
 |
 |
Yna Cliciwch Ok, mae'r cynnwys yn yr ystod a ddewiswyd yn cael ei droi'n rhes. Gweler y screenshot:
 |
|
 |
Nodyn: Yn Gosod OutRng = OutRng.Offset (0, xCols + 0), Gallwch newid 0 i unrhyw rif i ddiwallu eich angen.
Er enghraifft, os ydych chi am wahanu'r canlyniadau sy'n cyd-fynd â'r rhesi gwreiddiol gan un golofn, gallwch chi newid Gosod OutRng = OutRng.Offset (0, xCols + 0) i Gosod OutRng = OutRng.Offset (0, xCols + 1), dangosir y canlyniadau fel a ganlyn:
Trawsosod / Trosi colofnau a rhesi yn rhes sengl gyda Kutools for Excel
Mae'n ymddangos bod y ddau ddull uchod braidd yn anodd i ni Excel ddechreuwr, yma byddaf yn siarad am offeryn defnyddiol-Kutools for Excel i chi.
Kutools for Excel yn cynnwys mwy na 300 o offer Excel defnyddiol. Am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Get it Now
Gyda'r cyfleustodau Trawsnewid Ystod of Kutools for Excel, gallwch drawsnewid amrediad yn un rhes yn gyflym, gwnewch fel a ganlyn:
1. Dewiswch yr ystod rydych chi am ei thrawsosod.
2. Cliciwch Kutools > Troswr Ystod > Trawsnewid Ystod, gweler y screenshot:
3. Yn y Trawsnewid Ystod blwch deialog, dewiswch Ystod i res sengl opsiwn, gweler y screenshot:
4. Yna cliciwch OK, a chlicio cell i roi'r canlyniad o'r blwch pop allan.
5. Cliciwch OK, ac mae'r data yn yr ystod wedi'i drosi'n un rhes. Gweler sgrinluniau:
|
|
 |
Os ydych chi eisiau gwybod mwy am y nodwedd hon, ewch i Trawsnewid Ystod.
Erthyglau perthnasol:
Sut i newid rhes i golofn yn Excel?
Sut i drawsosod / trosi colofn sengl yn golofnau lluosog yn Excel?
Sut i drawsosod / trosi colofnau a rhesi yn golofn sengl?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...
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!
