Cum se face unul din două conținuturi de celule în Excel
Excel oferă posibilitatea de a rezuma celulele. Cu funcția FORMAT - CELULE - ALINIERE - COMBINA CELULE, puteți combina două celule într-o singură unitate. Dar ce faci atunci când există conținut în ambele celule pe care nu vrei să-l pierzi? Folosiți VBA pentru a rezolva problema.
Exemplul din figura următoare prezintă o listă scurtă de nume:
Doriți să combinați cele două conținuturi din coloanele A și B din prima coloană A și apoi combinați cele două celule din coloanele A și B într-o singură celulă. Următoarea macro face această treabă:
Merge SubCells ()
Reduceți linia ca întreg
Rând = 1
În timp ce nu (IsEmpty (Cells (line, 1)))
Cells (rând, 1) = Cells (rând, 1) & "" & Cells (rând, 2)
Celule (linie, 2) .ClearContents
Interval (celule (rând, 1), celule (rând, 2)). Merge
Linie = linie + 1
Merge încet
Coloane (1) .AutoFit
Sfârșitul Sub
Macro rulează prin liniile de la linia 1 până când coloana A este goală. Pentru fiecare conținut care nu este gol, conținutul lui A și B este atașat unul la celălalt (separat printr-un spațiu). Apoi cele două celule A și B sunt conectate pentru a forma o celulă. Următoarea figură arată rezultatul:
