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

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

Rhannwch a thrawsosodwch 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 Rhannwch a thrawsosodwch 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 y nodir isod :(Lawrlwytho Am Ddim Kutools 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 ar Kutools am Excel am ddim yn gyntaf, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.


Yr Offer Cynhyrchedd Swyddfa Gorau

Kutools ar gyfer Excel Yn Datrys y Rhan fwyaf o'ch Problemau, Ac Yn Cynyddu Eich Cynhyrchiant erbyn
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
    nodweddion pwerus
    . Yn cefnogi Office/Excel
    2007-2019 a 365
    . Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn
    30
    - treial am ddim 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 gan
    50%
    , ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (4)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fe wnaethoch chi ysgrifennu: Nodyn: yn y cod, y coma yn yr aray = Hollti(strTxt, ",") yw'r amffinydd y byddwch chi'n rhannu data yn seiliedig arno, gallwch chi ei newid yn ôl yr angen.

Cam gweithredu ychwanegol:
hefyd newid amffinydd "," yn adran cod:

<Else
strTxt=strTxt&", &yRg.Text
Diwedd Os>

Newid "," i (er enghraifft ";")
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Richard Hahlen, diolch am eich atgoffa. Rwyf wedi diweddaru'r hysbysiad.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i rannu data fesul rhes a thrawsosod rhesi i golofn ar yr un pryd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, E, disgrifiwch eich problem gyda mwy o fanylion, rhowch rai enghreifftiau yn well.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL