Kaip sukurti vieną iš dviejų langelių turinio „Excel“
„Excel“ suteikia galimybę apibendrinti langelius. Naudodami funkciją FORMAT - CELLS - ALIGNMENT - COMBINE CELLS, galite sujungti dvi ląsteles į vieną vienetą. Bet ką daryti, kai abiejose ląstelėse yra turinio, kurio nenorite prarasti? Norėdami išspręsti problemą, naudokite VBA.
Šiame paveikslėlyje pateiktas pavyzdys rodo trumpą vardų sąrašą:
Jūs norite sujungti du turinius iš A ir B stulpelių pirmame A stulpelyje, o tada sujungti du langelius iš A ir B stulpelių į vieną langelį. Šią makrokomandą atlieka šis darbas:
Sujungti papildomas ląsteles ()
Blyški linija kaip sveikasis skaičius
Eilė = 1
Nors ne (IsEmpty (Ląstelės (1 eilutė)))
Ląstelės (1 eilutė) = ląstelės (1 eilutė) ir "" & ląstelės (2 eilutė)
Ląstelės (2 eilutė). Aiškus turinys
Diapazonas (langeliai (1 eilutė), langeliai (2 eilutė)). Sujungti
Linija = eilutė + 1
Wend
Stulpeliai (1). AutoFit
Pabaiga Sub
Makrokomanda eina per eilutes nuo 1 eilutės, kol A stulpelis yra tuščias. Kiekvieno tuščio turinio atveju A ir B turinys pridedami vienas prie kito (atskirti tarpais). Tada abi ląstelės A ir B yra sujungtos, kad sudarytų vieną langelį. Toliau pateiktame paveikslėlyje parodytas rezultatas:
