Skip i'r prif gynnwys

Sut i drosi data o'r golofn yn un gell sengl yn Excel?

Pan fydd angen i chi drawsosod rhestr o ddata yn un gell sengl mewn taflen waith, fel arfer, gallwch chi gymhwyso'r Concatenate swyddogaeth i uno'r rhestr o gelloedd yn un gell, ond, bydd yn gymhleth os oes angen cyfuno data enfawr. Yr erthygl hon, byddaf yn siarad am rai triciau cyflym i chi ddatrys y dasg hon yn Excel.

Trosi data o'r golofn yn un gell sengl gyda Swyddogaeth Diffiniedig Defnyddiwr

Trawsosod data o golofn i mewn i un gell sengl gyda Kutools ar gyfer Excel


Ac eithrio'r swyddogaeth Concatenate i uno rhestr o werthoedd celloedd, gallwch gymhwyso'r cod VBA canlynol i gael y canlyniad cyn gynted ag y gallwch.

1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Trosi data o'r golofn yn un gell sengl

Function transposeRange(Rg As Range)
'updateby Extendoffice
    Dim xCell As Range
    Dim xStr As String
    For Each xCell In Rg
        If Not IsEmpty(xCell.Value) Then
            xStr = xStr & xCell.Value & ","
        End If
    Next
    transposeRange = Left(xStr, Len(xStr) - 1)
End Function

3. Yna arbedwch a chau'r cod hwn, ewch yn ôl y daflen waith, a nodi'r fformiwla hon: = trawsosod (A1: A10) i mewn i gell wag i roi'r canlyniad, a gwasgwch Rhowch allwedd, fe gewch fod yr holl werthoedd celloedd mewn colofn wedi'u lleoli mewn un gell, gweler y screenshot:

mae doc yn trawsosod celloedd yn un cell 1

Nodyn: Yn y cod uchod, A1: A10 yw'r ystod rhestr rydych chi am ei thrawsnewid yn un gell sengl, a hefyd, gallwch chi wahanu'r cynnwys unedig â delimiters eraill, fel coma, dash, gofod, ac ati trwy newid y coma yn y sgript yn unig. xStr = xStr & xCell.Value & ",".


Os oes gennych Kutools ar gyfer Excel, gyda'i offeryn pwerus-Cyfunwch, gallwch gyfuno data mewn colofn, rhes neu amrediad i un gell.

Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod.

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel a ganlyn :( Am ddim Lawrlwythwch Kutools ar gyfer Excel Nawr! )

1. Dewiswch y golofn ddata rydych chi am ei chyfuno'n un gell.

2. Cliciwch Kutools > Uno a HolltiCyfuno Rhesi, Colofnau neu Gelloedd heb Golli Data, gweler y screenshot:

3. Yn y blwch deialog popped out, dewiswch Cyfunwch i mewn i un gell O dan y Cyfuno celloedd dethol yn ôl yr opsiynau canlynol, ac yna nodwch wahanydd i wahanu'r cynnwys unedig, gweler y screenshot:

mae doc yn trawsosod celloedd yn un cell 3

4. Yna cliciwch Ok or Gwneud cais botwm, a byddwch yn cael y canlyniad canlynol yn ôl yr angen:

mae doc yn trawsosod celloedd yn un cell 4 2 mae doc yn trawsosod celloedd yn un cell 5

Dadlwythwch a threial am ddim Kutools ar gyfer Excel Nawr !


Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!

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 (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Would anybody know how to add a conditional rule to this function? Basically I have an e-mail directory for multiple businesses. There is a column where I list either Yes or No in response to whether the E-mail is the business' main contact. I am hoping adjust the code so that only the main contacts are pulled and listed in one cell. Therefore, the condition would be that the Main Contact Column lists Yes. I have tried using if statements but I am fairly new to all of this. Any help would be much appreciated!
This comment was minimized by the moderator on the site
Hello friend,
Glad to help. Please read this article: https://www.extendoffice.com/documents/excel/2706-excel-vlookup-return-multiple-values-in-one-cell.html. I believe it can solve your problem. Have a nice day.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
This has been ridiculously helpful to me a number of times. Thank you so much!
This comment was minimized by the moderator on the site
Hi,

Thanks a lot! I'm using your following function and it works very well. I would like to include an "if" function in the transposerange. What should I add to the function in VBA? Basically, it would work like a countif. So we would read the formula =transposerangeif(range,criteria).

Thanks in advance!

Function transposeRange(Rg As Range)
'updateby Extendoffice 20151207
Dim xCell As Range
Dim xStr As String
For Each xCell In Rg
If Not IsEmpty(xCell.Value) Then
xStr = xStr & xCell.Value & ","
End If
Next
transposeRange = Left(xStr, Len(xStr) - 1)
End Function
This comment was minimized by the moderator on the site
Hello,Sophie,
Could you give an example for your need, you can insert a screenshot here.
This comment was minimized by the moderator on the site
Thanks, this was very helpful.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations