Slå sammen Excel -celler uten å miste noe innhold

Anonim

Hvordan lage en av to celleinnhold i Excel

Excel gir muligheten til å oppsummere celler. Med funksjonen FORMAT - CELLER - ALIGNMENT - COMBINE CELLS kan du kombinere to celler til en enhet. Men hva gjør du når det er innhold i begge cellene som du ikke vil miste? Bruk VBA for å løse problemet.

Eksemplet i figuren nedenfor viser en kort liste med navn:

Du vil kombinere de to innholdene fra kolonne A og B i den første kolonnen A og deretter kombinere de to cellene fra kolonnene A og B til en celle. Følgende makro gjør denne jobben:

Slå sammen subceller ()

Dim line As Integer

Rad = 1

While Not (IsEmpty (Cells (line, 1)))

Celler (rad, 1) = Celler (rad, 1) & "" & Celler (rad, 2)

Celler (linje, 2) .ClearContents

Område (celler (rad, 1), celler (rad, 2)). Slå sammen

Linje = linje + 1

Wend

Kolonner (1). AutoFit

Slutt Sub

Makroen går gjennom linjene fra linje 1 til kolonne A er tom. For hvert ikke-tomt innhold er innholdet i A og B festet til hverandre (atskilt med et mellomrom). Deretter kobles de to cellene A og B til en celle. Følgende figur viser resultatet: