Kuinka yhdistää solut Excelissä pystysuoraan menettämättä tietoja

  • Jaa Tämä
Hugh West

Yksi tärkeimmistä ja eniten käytetyistä tehtävistä, jotka meidän on suoritettava Excelissä työskennellessämme, on solujen yhdistäminen pystysuoraan menettämättä tietoja. Tänään näytän sinulle, miten voit yhdistää soluja Excelissä pystysuoraan menettämättä tietoja.

Lataa harjoituskirja

Solujen yhdistäminen pystysuunnassa menettämättä data.xlsm

4 helppoa tapaa yhdistää soluja Excelissä pystysuoraan menettämättä tietoja

Tässä on tietokokonaisuus, jossa on joidenkin kirjailijoiden nimet ja heidän kirjansa Martin Bookstore -nimisessä kirjakaupassa.

Tavoitteenamme on nyt yhdistää saman kirjailijan kirjojen nimet pystysuoraan yhteen soluun menettämättä tietoja.

1. Suorita yhdistämis- ja keskitystyökalu Excel-työkaluriviltä solujen yhdistämiseksi Excelissä pystysuoraan menettämättä tietoja.

Vaihe 1:

➤ Valitse ensimmäinen soluryhmä, jonka haluat yhdistää (tässä esimerkissä Charles Dickensin kirjat).

Vaihe 2:

➤ Mene osoitteeseen Etusivu> Yhdistä & Keskusta työkalu Excelin työkalupalkissa kohdassa nimeltä Kohdistus .

Vaihe 3:

➤ Napsauta pudotusvalikkoa.

➤ Valitse käytettävissä olevista vaihtoehdoista Yhdistä & keskusta .

Vaihe 4:

➤ Klikkaa Yhdistä & keskusta .

➤ Valitsemasi soluryhmä yhdistetään yhdeksi soluksi, mutta se sisältää vain ensimmäisen solun arvon (tässä esimerkissä Great Dickens).

Vaihe 5:

➤ Voit toistaa saman toimenpiteen lopuille soluryhmille ja yhdistää ne yhdeksi soluksi.

Lue lisää: Solujen yhdistäminen ja keskittäminen Excelissä

2. Käytä Amperand (&) -symbolia solujen yhdistämiseen Excelissä pystysuoraan menettämättä tietoja.

Edellä mainittu menetelmä yhdistää soluryhmän yhdeksi soluksi, mutta se ei täytä vaatimustamme täysin.

Se säilyttää arvon vain ensimmäisestä solusta, ei kaikista soluista.

Tämä tarkoittaa, että se menettää tietoja.

Jos haluat yhdistää soluryhmän arvot yhdeksi soluksi, voit käyttää kaavaa, joka koostuu kaavasta Amperand (&) symboli.

Ensimmäisen soluryhmän kaava on:

=C4&", "&C5&", "&C6".

Huom:

  • Tässä olen käyttänyt pilkut (,) kirjojen nimien välissä, jotta ne näyttäisivät edustavilta. Voit käyttää mitä tahansa haluamaasi.

Toista sitten sama menettely kaikille soluryhmille.

3. Käytä kaavaa Excelin solujen yhdistämiseen pystysuoraan ilman tietojen menettämistä.

Sen sijaan, että käyttäisit Amperand (&) symbolia, voit käyttää CONCATENATE-toiminto Excelissä soluryhmän yhdistämiseksi yhdeksi soluksi.

Ensimmäisen soluryhmän yhdistämisen kaava on:

=CONCATENATE(C4,", ",C5,", ",C6)

Huom:

  • Tässä olen myös käyttänyt pilkut (,) kirjojen nimien välissä. Voit käyttää mitä tahansa haluamaasi.

Seuraavaksi voit käyttää tätä kaavaa lopuille soluryhmille ja yhdistää ne yhdeksi soluksi.

4. Suorita VBA-koodit Excelin solujen yhdistämiseksi pystysuoraan ilman tietojen menettämistä.

Kaikki edellä mainitut menetelmät toimivat hyvin, mutta ne eivät silti täytä tarkoitustamme täysin.

Haluamme kehittää sellaisen menetelmän, joka yhdistää kaikki soluryhmät yksittäisiksi soluiksi yhdellä napsautuksella.

Ja kyllä, tähän on olemassa keinoja. Tässä kappaleessa johdamme menetelmän, jossa käytetään VBA koodi, joka yhdistää kaikki soluryhmät yksittäisiksi soluiksi helpoimmalla mahdollisella tavalla.

Vaihe 1:

Paina ALT+F11 näppäimistölläsi. VBA ikkuna avautuu.

Vaihe 2:

Mene osoitteeseen Lisää VBA-ikkunan välilehti.

Valitse käytettävissä olevista vaihtoehdoista Moduuli .

Vaihe 3:

Uusi moduuli-ikkuna nimeltä "Moduuli 1" avautuu.

Lisätään seuraava VBA koodia moduulissa.

Koodi:

 Sub Merging_Rows() Dim out As Variant out = " Dim start As Variant start = 1 Dim ending As Variant ending = 1 Dim i As Variant Dim j As Variant For i = 2 To Selection.Rows.Count + 1 If Selection(i, 1) "" Or i = Selection.Rows.Count + 1 Then ending = i - 1 For j = start To ending If j = ending Then out = out + Range(Selection(j, 2).Address).ValueElse: out = out + Range(Selection(j, 2).Address).Value + vbNewLine End If Next j Range(Selection(start, 2).Address) = out Range(Selection(start, 1).Address + ":" + Selection(ending, 1).Address).Merge Across:=False Range(Selection(start, 2).Address + ":" + Selection(ending, 2).Address).Merge Across:=False start = iout = "" End If Next i End Sub 

Vaihe 4:

Tallenna työkirja nimellä Excel-makroilla varustettu työkirja .

Vaihe 5:

Palaa työkirjaan ja valitse tietokokonaisuus (Ilman ruutua Sarakeotsikot ).

Vaihe 6:

Paina ALT+F8 näppäimistölläsi.

Valintaikkuna nimeltä Makro avautuu. Valitse Yhdistäminen_Rivit ja klikkaa Suorita .

Vaihe 6:

Saat varoituslaatikon, joka kertoo, että solujen yhdistäminen säilyttää vain solun vasemman yläkulman arvon ja hylkää muut arvot.

Klikkaa OK .

Vaihe 7:

Saat saman varoitusikkunan näkyviin muutaman kerran. Klikkaa OK joka kerta.

Lopulta näet kaikki soluryhmät yhdistettyinä pystysuoraan yksittäisiksi soluiksi näin.

Päätelmä

Näiden menetelmien avulla voit yhdistää soluja Excelissä pystysuunnassa menettämättä tietoja. Tiedätkö muita menetelmiä tai onko sinulla kysyttävää? Kysy meiltä.

Hugh West on erittäin kokenut Excel-kouluttaja ja analyytikko, jolla on yli 10 vuoden kokemus alalta. Hän on koulutukseltaan laskentatoimen ja rahoituksen kandidaatti sekä kauppatieteiden maisteri. Hughilla on intohimo opettamiseen, ja hän on kehittänyt ainutlaatuisen opetusmenetelmän, jota on helppo seurata ja ymmärtää. Hänen asiantuntemuksensa Excelistä on auttanut tuhansia opiskelijoita ja ammattilaisia ​​maailmanlaajuisesti parantamaan taitojaan ja menestymään urallaan. Blogissaan Hugh jakaa tietämyksensä maailman kanssa tarjoamalla ilmaisia ​​Excel-opetusohjelmia ja verkkokoulutusta auttaakseen yksilöitä ja yrityksiä saavuttamaan täyden potentiaalinsa.