Kako narediti eno od dveh vsebin celic v Excelu
Excel ponuja možnost povzemanja celic. S funkcijo FORMAT - CELLS - ALIGMMENT - COMBINE CELLS lahko dve celici združite v eno enoto. Kaj pa storite, če je v obeh celicah vsebina, ki je ne želite izgubiti? Za rešitev težave uporabite VBA.
Primer na naslednji sliki prikazuje kratek seznam imen:
Želite združiti dve vsebini iz stolpcev A in B v prvem stolpcu A in nato združiti dve celici iz stolpcev A in B v eno celico. Naslednji makro opravlja to delo:
Združi podcelije ()
Zatemnjena črta kot celo število
Vrstica = 1
Medtem ko ni (IsEmpty (celice (vrstica, 1)))
Celice (vrstica, 1) = Celice (vrstica, 1) & "" & Celice (vrstica, 2)
Celice (vrstica, 2). Jasna vsebina
Obseg (celice (vrstica, 1), celice (vrstica, 2)). Združi
Vrstica = vrstica + 1
Wend
Stolpci (1) .AutoFit
End Sub
Makro teče skozi vrstice od prve vrstice, dokler stolpec A ni prazen. Za vsako prazno vsebino sta vsebini A in B med seboj povezani (ločeni s presledkom). Nato sta celici A in B povezani, da tvorita eno celico. Naslednja slika prikazuje rezultat: