Sådan laver du en ud af to celleindhold i Excel
Excel giver mulighed for at opsummere celler. Med funktionen FORMAT - CELLER - ALIGNMENT - COMBINE CELLS kan du kombinere to celler til en enhed. Men hvad gør du, når der er indhold i begge celler, som du ikke vil miste? Brug VBA til at løse problemet.
Eksemplet i følgende figur viser en kort liste med navne:
Du vil kombinere de to indhold fra kolonner A og B i den første kolonne A og derefter kombinere de to celler fra kolonner A og B til en celle. Følgende makro udfører dette job:
Flet underceller ()
Dim linje Som heltal
Række = 1
While Not (IsEmpty (Cells (line, 1)))
Celler (række, 1) = Celler (række, 1) & "" & Celler (række, 2)
Celler (linje, 2) .ClearContents
Område (celler (række, 1), celler (række, 2)). Flet
Linje = linje + 1
Wend
Kolonner (1) .AutoFit
Afslut Sub
Makroen løber gennem linjerne fra linje 1, indtil kolonne A er tom. For hvert ikke-tomt indhold er indholdet af A og B knyttet til hinanden (adskilt af et mellemrum). Derefter forbindes de to celler A og B til en celle. Følgende figur viser resultatet:
