Aholkua: beste hizkuntza Google-k itzulitako dira. Bisitatu dezakezu English estekaren bertsioa.
Saioa hasi
x
or
x
x
Eman izena
x

or

Nola banatu gelaxka-balioak bertikalean Excel-en?

Excel-en, aplikatu dezakezu Testua zutabeetara Gelaxken zutabeetan zutabe horizontalak zatitzeko zuriuneak bereizten ditu, baina ez du zelulen edukiak zutabe bertikaletan banatzen uzten. Eta artikulu honetan, gelaxka-balioak zatitu ordez bertikalki Excel-en banakako espezifikoak banatzeko modu azkar batzuei buruz hitz egingo dut.

Zabaldu gelaxka bertikalki zutabeak banaka bananduta VBA kodea erabiliz

Banatu gelaxka bertikalki zutabeen errenkadetan, Kutools for Excel banatzailearekin


Zabaldu gelaxka bertikalki zutabeak banaka bananduta VBA kodea erabiliz


VBA kode hauek balioen zelulak zatitzen ditu bertikalki banantzen dituzun edozein bereizleren bidez, honela egin:

1. Eutsi behera ALT + F11 teklak irekitzeko Microsoft Visual Basic aplikazioak leihoa.

2. Klikatu Txertatu > Moduluak, eta ondorengo kodea itsatsi ezazu Moduluak Leiho.

VBA kodea: zatitu gelaxkak bertikalki bereizle jakin bakoitzeko

Sub splitvertically()
'updatebyExtendoffice 20160303
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim xStr As String
    Dim xOutArr As Variant
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOutRg = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xStr = "" Then
            xStr = xCell.Value
        Else
            xStr = xStr & ";" & xCell.Value
        End If
    Next
    xOutArr = VBA.Split(xStr, ";")
    xOutRg.Range("A1").Resize(UBound(xOutArr) + 1, 1) = Application.WorksheetFunction.Transpose(xOutArr)
End Sub

3. Ondoren, sakatu F5 Kodea exekutatzeko gakoa eta galdetegi-koadro bat agertuko da bertikalki banatu nahi dituzun gelaxka-balioak hautatzeko gogorarazteko, ikusi pantaila-argazkia:

doc zatitu bertikalki 1

4. Eta egin klik OK botoia, beste koadro bat agertuko da gelaxka bat hautatzeko gogoa gogorarazteko, ikusi pantaila:

doc zatitu bertikalki 2

5. Egin klik OK botoia, eta gelaxka-balioak zerrenda batean banatu dira bereizle batek, ikusi pantaila-argazkia:

doc zatitu bertikalki 3

Ohar: Goiko kodean, puntu eta koma alda dezakezu ; Behar dituzun beste delimitatzaileentzat.


Banatu gelaxka bertikalki zutabeen errenkadetan, Kutools for Excel banatzailearekin

Kutools for Excel'S Zatitu gelaxkak Ezaugarri erabilgarritasun indartsua da, zelulen balioak zutabe edo errenkada anitzetan banatu ditzakezu edozein bereizleren bidez.

Kutools for Excel : 300 Excel erabilgarriak baino gehiagorekin, doako 60 egunetan mugak ez erabiltzeko.

Instalatu ondoren Kutools for Excel, egin honela:

1. Hautatu mugitu nahi dituzun gelaxkak errenkadetan zehaztutako gelaxkak.

2. Gero egin klik Kutools > Testu > Zatitu gelaxkak, ikusi pantaila-argazkia:

doc zatitu bertikalki 4

3. In the Zatitu gelaxkak Elkarrizketa koadroa, hautatu Split to Rows azpian Mota atala, eta gero egiaztatu Beste tik Split by atala, eta sartu gelaxka-balioak zatitu nahi dituzun bereizgailuan, ikusi pantaila-argazkia:

doc zatitu bertikalki 5

4. Eta egin klik Ok botoia, leihoa pizteko, hautatu gelaxka emaitza irteera, ikusi pantaila-argazkia:

doc zatitu bertikalki 6

5. eta sakatu OK botoia, zelula-balioak bereizitako banan-banan oinarritutako errenkadetan banatu dira pantaila-argazkia erakusten den hurrengo pauso gisa:

doc zatitu bertikalki 7

Deskargatu eta doako proba Kutools for Excel Now!


Demostrazioa: Zutabe zelulak zatitu bertikalki, bereizlearekin Kutools for Excel bidez

Kutools for Excel: 200 Excel gehigarri erabilgarriak baino gehiagorekin, 60 egunetan mugarik gabe probatzeko. Deskargatu eta doako proba Orain!


Excel-eko produktibitate gomendatutako tresnak

Kte fitxa 201905

Kutools for Excel-ek Denbora aurretik lan egitea erabakitzen laguntzen du eta jendetzaren artean nabarmentzen dira

  • 300-ek 1500 laneko eszenategietarako diseinatutako 70-en ezaugarri aurreratuak baino gehiagok, XNUMX% produktibitatea areagotuz gero, familiari eta bizitza gozatzeko denbora gehiago ematen dizu.
  • Jada ez duzu formula eta VBA kodeak memorizatu, hemendik aurrera zure garunari atsedena emateko.
  • Bihurtu Excel-en 3 minutuetan adituak, segunduan eragiketak konplikatuak eta errepikatuak egin daitezke,
  • Egunero milaka teklatu eta sagu eragiketa murriztea, gaur egungo gaixotasun profesionalen agur esateko.
  • 110,000 pertsona oso eraginkorra eta 300 + mundu osoan ezagunak diren enpresen aukera.
  • 60 eguneko funtzio osoa doako proba. 60-eguneko dirua itzultzeko bermeak. 2 doako bertsio berritzea eta laguntza.

Fitxategiak arakatzea eta editatzea dakar Microsoft Office-ra, nabigatzailearen fitxak baino askoz ere indartsuagoa

  • Office Tab Word, Excel, PowerPoint eta Beste Office aplikazioetarako diseinatuta dago: Argitaratzailea, Sarbidea, Visio eta Proiektua.
  • Ireki eta sortu dokumentu anitz leiho berdineko fitxetan, leiho berrietan baino.
  • 50% zure produktibitatea handitzen du eta egunero ehunka sagu klik egiten dituzu.
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.