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

Sut i bentyrru colofnau o'r chwith i'r dde i mewn i un golofn yn Excel?

Gan dybio bod sawl colofn, y swydd yw pentyrru'r colofnau o'r chwith i'r dde i mewn i un golofn sengl fel islaw'r screenshot a ddangosir. Ac eithrio symud y colofnau â llaw fesul un, a oes unrhyw driciau ar ddatrys hyn yn Excel?
colofnau pentwr doc o'r chwith i'r dde 1

Staciwch golofnau o'r chwith i'r dde i un golofn gyda VBA

Colofnau pentyrrau o'r chwith i'r dde i un golofn gyda Kutools ar gyfer Excel


Staciwch golofnau o'r chwith i'r dde i un golofn gyda VBA

Yn Excel, nid oes unrhyw swyddogaeth adeiledig a all drin y swydd hon, ond, gall y cod VBA eich helpu chi.

1. Gwasgwch Alt + F11 allweddi, yna yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau i greu modiwl gwag newydd.

2. Copïo a gludo islaw'r cod i'r Modiwlau.

VBA: Staciwch golofnau yn un

Sub StackColumns()
'UpdatebyExtendoffice20180814
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNumR, xFNumC As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select Columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
    Application.ScreenUpdating = True
    Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
    Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
    For xFNumC = 1 To xSRg.Columns.Count
        For xFNumR = 1 To xSRg.Rows.Count
            Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
            xDRg.Value = xSRg.Cells(xFNumR, xFNumC).Value
            xI = xI + 1
        Next xFNumR
    Next xFNumC
Application.ScreenUpdating = True
End Sub

colofnau pentwr doc o'r chwith i'r dde 2

3. Gwasgwch F5 allwedd i redeg y cod, mae deialog yn galw allan i chi ddewis y colofnau y byddwch chi'n eu pentyrru yn un.
colofnau pentwr doc o'r chwith i'r dde 3

4. Cliciwch OK, dewiswch gell i osod y canlyniad.
colofnau pentwr doc o'r chwith i'r dde 4

5. Cliciwch OK i orffen. Nawr mae'r colofnau a ddewiswyd wedi'u pentyrru i mewn i un golofn.
colofnau pentwr doc o'r chwith i'r dde 5


Colofnau pentyrrau o'r chwith i'r dde i un golofn gyda Kutools ar gyfer Excel

Os oes gennych Kutools ar gyfer Excel wedi'i osod yn Excel, gallwch ddefnyddio'r Transform Range cyfleustodau i drin y swydd hon.

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 y nodir isod:(Kutools i'w lawrlwytho am ddim ar gyfer Excel Nawr!)

1. Dewiswch y colofnau rydych chi am eu pentyrru, cliciwch Kutools > Ystod > Transform Range.
colofnau pentwr doc o'r chwith i'r dde 6

2. Yn y Transform Range deialog, gwirio Range to single row blwch gwirio, cliciwch Ok.
colofnau pentwr doc o'r chwith i'r dde 7

3. Yn y dialog popping, dewiswch gell i osod y canlyniad, cliciwch OK.
colofnau pentwr doc o'r chwith i'r dde 8

Nawr mae'r colofnau wedi'u trawsnewid i un rhes.
colofnau pentwr doc o'r chwith i'r dde 9

4. Dewiswch y rhes sengl, pwyswch Ctrl + C i'w gopïo, a dewis cell arall a fydd yn gosod y golofn pentwr, cliciwch ar y dde i ddewis Transpose(T) yn y ddewislen cyd-destun.
colofnau pentwr doc o'r chwith i'r dde 10

Nawr mae'r rhes sengl wedi'i thrawsnewid i golofn pentwr.
colofn pentwr doc o'r chwith i'r dde 11


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 (3)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Twyllwr Word i wneud yr un peth:
- Copïwch eich holl resi a llinellau yn Excel
- pastiwch heb i mewn i ddogfen Word
- ctrl + h (canfod a disodli)
- copïwch fwlch tabl rhwng dwy res
- pastio i mewn i'r bar chwilio
- disodli gan dabiau gan doriadau llinell "^l"

Mae eich holl gelloedd bellach mewn colofn yn eich dogfen Word.
Copïwch eu pastio i Excel: wedi'i wneud!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Byddaf yn dragwyddol ddiolchgar i chi. Diolch yn fawr iawn!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes unrhyw un yn gwybod sut i amnewid/codio caled y colofnau (dim dod i fyny'r blwch neges ar gyfer dewis)? Felly, gosodwch yr XSRg i fod yn rhywbeth fel: Gosod xSRg = Ystod ("A1").CurrentRegion.Select(nad yw'n gweithio oherwydd o fath diffyg cyfatebiaeth) diolch
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir