Kuidas teha Excelis üks kahest lahtrisisust
Excel pakub võimalust lahtreid kokku võtta. Funktsiooniga FORMAT - CELLS - ALIGNMENT - COMBINE CELLS saate ühendada kaks lahtrit üheks üksuseks. Mida aga teha, kui mõlemas lahtris on sisu, mida te kaotada ei taha? Kasutage probleemi lahendamiseks VBA -d.
Järgmisel joonisel olev näide näitab nimede lühiloendit:
Soovite ühendada esimese veeru A veergude A ja B kaks sisu ning seejärel ühendada veergude A ja B kaks lahtrit üheks lahtriks. Seda tööd teeb järgmine makro:
Ühenda alamrakud ()
Tuhm rida täisarvuna
Rida = 1
Kuigi mitte (IsEmpty (Lahtrid (rida 1)))
Lahtrid (rida 1) = lahtrid (rida 1) & "" & lahtrid (rida 2)
Lahtrid (rida, 2). Selge sisu
Vahemik (lahtrid (rida 1), lahtrid (rida 2)). Ühenda
Rida = rida + 1
Wend
Veerud (1). AutoFit
End Sub
Makro jookseb ridadest alates reast 1 kuni veerg A on tühi. Iga mittetühja sisu puhul lisatakse A ja B sisu üksteisele (eraldatakse tühikuga). Seejärel ühendatakse kaks lahtrit A ja B, moodustades ühe lahtri. Järgmine joonis näitab tulemust:
