Kaip vertikaliai sujungti "Excel" ląsteles neprarandant duomenų

Hugh West

16-10-2023 "Excel" pagrindai
  • Pasidalinti
Hugh West

Viena iš svarbiausių ir dažniausiai naudojamų užduočių, kurias turime atlikti dirbdami "Excel", yra vertikaliai sujungti ląsteles neprarandant duomenų. Šiandien parodysiu, kaip galite vertikaliai sujungti "Excel" ląsteles neprarasdami duomenų.

Atsisiųsti praktikos sąsiuvinį

Sujungti ląsteles vertikaliai neprarandant duomenų.xlsm

4 paprasti metodai, kaip vertikaliai sujungti "Excel" ląsteles neprarandant duomenų

Čia turime duomenų rinkinį, kuriame yra kai kurių autorių vardai ir jų knygos, parduodamos knygyne, pavadintame Martino knygynu.

Šiandien mūsų tikslas - vertikaliai sujungti to paties autoriaus knygų pavadinimus vienoje ląstelėje neprarandant jokių duomenų.

1. Paleiskite suliejimo ir centravimo įrankį iš "Excel" įrankių juostos, kad vertikaliai sujungtumėte "Excel" ląsteles neprarasdami duomenų

1 žingsnis:

➤ Pasirinkite pirmąją ląstelių grupę, kurią norite sujungti (šiame pavyzdyje - Čarlzo Dikenso knygos).

2 žingsnis:

➤ Eikite į Pagrindinis> Sujungti & amp; Centras įrankis "Excel" įrankių juostoje, skiltyje, pavadintoje Suderinimas .

3 veiksmas:

➤ Spustelėkite išskleidžiamąjį meniu.

➤ Iš galimų parinkčių pasirinkite Sujungti & amp; Centras .

4 veiksmas:

➤ Spustelėkite Sujungti & amp; Centras .

➤ Pamatysite, kad pasirinkta ląstelių grupė sujungta į vieną ląstelę, tačiau joje yra tik pirmosios ląstelės (šiame pavyzdyje - "Great Dickens") reikšmė.

5 veiksmas:

➤ Tą pačią procedūrą galite pakartoti likusioms ląstelių grupėms ir sujungti jas į vieną ląstelę.

Skaityti daugiau: Kaip sujungti ir centruoti ląsteles "Excel" programoje

2. Naudokite ampersando (&) simbolį "Excel" ląstelėms vertikaliai sujungti neprarandant duomenų

Minėtas metodas sujungia ląstelių grupę į vieną ląstelę, tačiau jis ne visiškai atitinka mūsų reikalavimus.

Jis išsaugo tik pirmojo langelio, o ne visų langelių vertę.

Tai reiškia, kad jis praranda duomenis.

Norėdami sujungti ląstelių grupės reikšmes į vieną ląstelę, galite naudoti formulę, kurią sudaro Ampersandas (&) simbolis.

Pirmosios ląstelių grupės formulė bus tokia:

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

Pastaba:

  • Čia naudojau kableliai (,) tarp knygų pavadinimų, kad atrodytumėte reprezentatyviai. Galite naudoti bet ką, kas jums patinka.

Tada pakartokite tą pačią procedūrą visoms ląstelių grupėms.

3. Naudokite formulę "Excel" ląstelėms vertikaliai sujungti neprarandant duomenų

Užuot naudoję Ampersandas (&) simbolį, galite naudoti CONCATENATE funkcija "Excel", kad sujungtumėte ląstelių grupę į vieną ląstelę.

Pirmosios grupės ląstelių sujungimo formulė bus tokia:

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

Pastaba:

  • Čia taip pat naudojau kableliai (,) tarp knygų pavadinimų. Galite naudoti bet ką, kas jums patinka.

Tada šią formulę galite naudoti likusiai ląstelių grupei, kad sujungtumėte jas į vieną ląstelę.

4. Paleiskite VBA kodus, kad vertikaliai sujungtumėte "Excel" ląsteles neprarasdami duomenų

Visi pirmiau minėti metodai puikiai veikia, tačiau vis tiek jie visiškai neatitinka mūsų tikslo.

Norime išvesti tokį metodą, kuris vienu spustelėjimu sujungtų visas ląstelių grupes į atskiras ląsteles.

Ir taip, yra būdų, kaip tai padaryti. Šiame skirsnyje išvesime metodą, naudojant VBA kodą, kuris kuo paprasčiau sujungtų visas ląstelių grupes į atskiras ląsteles.

1 žingsnis:

➤ Paspauskite ALT+F11 ant klaviatūros. VBA bus atidarytas langas.

2 žingsnis:

➤ Eikite į Įdėkite VBA lango skirtukas.

➤ Iš galimų parinkčių pasirinkite Modulis .

3 veiksmas:

➤ Naujas modulio langas, pavadintas "1 modulis" bus atidaryta.

➤ Įterpkite šį tekstą VBA kodas modulyje.

Kodas: 

 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).ValueKitaip: 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

4 veiksmas:

➤ Išsaugokite sąsiuvinį kaip "Excel" makrokomandos įgalintas darbaknygis .

5 veiksmas:

➤ Grįžkite į sąsiuvinį ir pasirinkite duomenų rinkinį (be Stulpelių antraštės ).

6 veiksmas:

➤ Paspauskite ALT+F8 ant klaviatūros.

➤ Dialogo langas, pavadintas Makro Atsidarys langas. Pasirinkite Merging_Rows ir spustelėkite Paleisti .

6 veiksmas:

➤ Bus rodomas įspėjimo langas, kuriame bus nurodyta, kad sujungiant ląsteles išsaugoma tik viršutinės kairiosios ląstelės vertė, o kitos vertės atmetamos.

➤ Spustelėkite GERAI .

7 veiksmas:

➤ Keletą kartų pasirodys tas pats įspėjimo langelis. Spustelėkite GERAI kiekvieną kartą.

➤ Galiausiai visos ląstelių grupės bus vertikaliai sujungtos į atskiras ląsteles, kaip nurodyta toliau.

Išvada

Naudodamiesi šiais metodais galite sujungti "Excel" langelius vertikaliai neprarasdami duomenų. Ar žinote kokį nors kitą metodą? Arba turite klausimų? Drąsiai klauskite mūsų.

Ankstesnis įrašas Kaip naudoti SUMIFS funkciją "Excel" programoje (6 patogūs pavyzdžiai)
Kitas įrašas Kaip konvertuoti skaičių į žodžius programoje "Excel" (4 tinkami būdai)

Hugh Westas yra labai patyręs Excel treneris ir analitikas, turintis daugiau nei 10 metų patirtį šioje srityje. Jis yra įgijęs apskaitos ir finansų bakalauro bei verslo administravimo magistro laipsnius. Hugh turi aistrą mokymui ir sukūrė unikalų mokymo metodą, kurį lengva sekti ir suprasti. Jo ekspertinės žinios apie „Excel“ padėjo tūkstančiams studentų ir specialistų visame pasaulyje tobulinti savo įgūdžius ir tobulėti savo karjeroje. Savo tinklaraštyje Hugh dalijasi savo žiniomis su pasauliu, siūlydamas nemokamus „Excel“ vadovėlius ir internetinius mokymus, kad padėtų asmenims ir įmonėms išnaudoti visą savo potencialą.