Skip i'r prif gynnwys

Sut i rannu â delimiter a thrawsosod celloedd yn Excel?

Yn yr erthygl hon, rwy'n cyflwyno'r ffyrdd i rannu ystod yn ôl delimiter penodol ac yna ei drawsosod yn Excel fel y dangosir isod y llun. Os oes gennych ddiddordeb yn y dasg hon, ewch i'r manylion isod.
trawsosodiad spliy doc 1

Rhannwch a thrawsosodwch gyda VBA

Rhannu a thrawsosod gyda Kutools ar gyfer Excel


swigen dde glas saeth Rhannwch a thrawsosodwch gyda VBA

Nid oes unrhyw ffordd uniongyrchol i rannu a thrawsnewid data gan amffinydd penodol, ond gallaf gyflwyno cod VBA i'ch helpu chi i ddatrys y broblem hon yn gyflym.

1. Gwasgwch Alt + F11 allweddi i'w harddangos Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludo islaw'r cod i'r newydd Modiwlau ffenestr.

VBA: Hollti a Thrawsosod

Sub Vertical()
'UpdatebyExtendoffice20161125
    Dim i As Long, strTxt As String
    Dim startP As Range
    Dim xRg As Range, yRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    i = 1
    Application.ScreenUpdating = False
    For Each yRg In xRg
        If i = 1 Then
            strTxt = yRg.Text
            i = 2
        Else
            strTxt = strTxt & "," & yRg.Text
        End If
    Next
    Application.ScreenUpdating = True
    Set startP = Application.InputBox _
    (Prompt:="paste range...", _
    Title:="Kutools For Excel", Type:=8)
    ary = Split(strTxt, ",")
    i = 1
    Application.ScreenUpdating = False
    For Each a In ary
        startP(i, 1).Value = a
        i = i + 1
    Next a
    Application.ScreenUpdating = True
End Sub

3. Gwasgwch F5 yn allweddol i redeg y cod, mae deialog yn galw allan i chi ddewis ystod i'w hollti a'i drawsosod.
trawsosodiad spliy doc 2

4. Cliciwch OK. Mae deialog yn galw allan i ddewis lleoliad i osod y data.
trawsosodiad spliy doc 3

5. Cliciwch OK, ac mae'r detholiad wedi'i rannu a'i drawsosod gan atalnod.
trawsosodiad spliy doc 4

Nodyn: yn y cod, y coma yn y strTxt &", ac ary = Hollti(strTxt, ",") yw'r amffinydd y byddwch chi'n rhannu data yn seiliedig arno, gallwch chi eu newid yn ôl yr angen.


swigen dde glas saeth Rhannu a thrawsosod gyda Kutools ar gyfer Excel

Gyda Kutools ar gyfer Excel, gallwch gymhwyso ei Celloedd Hollt yn gyntaf i rannu celloedd yn ôl delimiter, ac yna cymhwyso'r Trawsnewid Ystod cyfleustodau i drosi'r celloedd yn un golofn.

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 celloedd rydych chi am eu rhannu, a chlicio Kutools > Uno a Hollti > Celloedd Hollt. Gweler y screenshot:
trawsosodiad spliy doc 5

2. Yn y Celloedd Hollt deialog, gwirio Hollti i Golofnau opsiwn, yna nodwch y amffinydd rydych chi am ei rannu yn seiliedig ar, cliciwch Ok. A dewis cell wag i roi'r canlyniad yn yr ail Celloedd Hollt deialog. Gweler y screenshot:
trawsosodiad spliy doc 6

3. Cliciwch OK, yna mae'r celloedd wedi'u rhannu'n golofnau, ac yna cliciwch Kutools > Ystod > Trawsnewid Ystod. Gweler y screenshot:
trawsosodiad spliy doc 7

4. Yn y Trawsnewid Ystod deialog, gwirio Ystod i golofn sengl, Cliciwch Ok, a dewis cell i osod y canlyniad. Gweler y screenshot:
trawsosodiad spliy doc 8

5. Cliciwch OK, nawr mae'r amrediad wedi'i drawsnewid yn un golofn.
trawsosodiad spliy doc 9

Awgrym. Os ydych chi am gael treial am ddim o'r Celloedd Hollt ac Trawsnewid Ystod swyddogaethau, ewch i roi cynnig am ddim Kutools ar gyfer Excel yn gyntaf, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.

Offer Cynhyrchiant Swyddfa Gorau

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

tab kte 201905


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 (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is there a way to split data by row and transpose rows to column at the same time?
This comment was minimized by the moderator on the site
Hi, E, please describe your problem with more details, better provide some examples.
This comment was minimized by the moderator on the site
You wrote: Note: in the code, the comma in the aray = Split(strTxt, ",") is the delimiter you will split data based on, you can change it as you need.

Extra action:
also change delimter "," in code section:

<Else
strTxt = strTxt & "," & yRg.Text
End If>

Change "," to (for example ";")
This comment was minimized by the moderator on the site
Hi, Richard Hahlen, thanks for your remind. I have updated the notice.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations