Šioje pamokoje apžvelgsime įvairius būdus, kaip galite sujungti ląsteles naudodami VBA.
Sujungti langelius naudojant VBA
Galite sujungti langelius VBA naudodami metodą „Range.Merge“. Šis kodas sujungs langelius A1: C1:
12345 | Sub MergingCells ()Diapazonas („A1: C1“). SujungtiPabaiga Sub |
Rezultatas yra toks:
Išardykite ląsteles naudodami VBA
Galite atjungti sujungtą langelių diapazoną naudodami metodą „Range.UnMerge“. Tarkime, kad sujungėte langelių diapazoną A1: D1. Norėdami išjungti langelius, galite naudoti vieną iš diapazono langelių nuorodų. Šis kodas parodo, kaip sujungti langelius A1: D1, šiuo atveju mes naudojame langelį B1:
12345 | Sub UnmergeCells ()Diapazonas („B1“). „UnMerge“Pabaiga Sub |
Daugiau sujungimo pavyzdžių
Sujungti eilutes naudojant VBA
Eilutes galite sujungti naudodami VBA, nurodydami norimų sulieti eilučių numerius. Turime tekstą A1 langelyje žemiau:
Šis kodas sujungs 1-4 eilutes:
12345 | Sub MergeRows ()Diapazonas („1: 4“). SujungtiPabaiga Sub |
Rezultatas yra toks:
Sujungti stulpelius naudojant VBA
Galite sujungti stulpelius naudodami VBA ir stulpelių raides. Šis kodas sujungs A stulpelius: C.
12345 | Po sujungimo stulpeliai ()Diapazonas („A: C“). SujungtiPabaiga Sub |
Rezultatas yra toks:
Sujungti ir centruoti ląstelių turinį horizontaliai
Langelių turinį galite sujungti ir centruoti horizontaliai visame langelių diapazone. Turite sujungti dominančias ląsteles ir taip pat nustatyti diapazono objekto horizontalaus išlyginimo ypatybę į centrą. Mes turime tekstą langelyje A1, kaip parodyta žemiau:
Šis kodas sujungs langelių diapazoną A1: D1 ir sutelks A1 langelio turinį horizontaliai per visą langelių diapazoną:
123456 | „Sub MergeandCenterContentsHorizontally“ ()Diapazonas („A1: D1“). SujungtiDiapazonas („A1: D1“). HorizontalAlignment = xlCenterPabaiga Sub |
Rezultatas yra toks:
Sujungti ir centruoti ląstelių turinį vertikaliai
Galite sujungti ir centruoti langelių turinį vertikaliai per langelių diapazoną. Turite sujungti dominančias ląsteles ir taip pat nustatyti diapazono objekto vertikalaus išlyginimo ypatybę į centrą. Mes turime tekstą langelyje A1, kaip parodyta žemiau:
Šis kodas sujungs langelių diapazoną A1: A4 ir sutelks A1 langelio turinį vertikaliai per visą langelių diapazoną:
123456 | „Sub MergeandCenterContentsVertically“ ()Diapazonas („A1: A4“). SujungtiDiapazonas („A1: D1“). VerticalAlignment = xlCenterPabaiga Sub |
Rezultatas yra toks:
Sujungti ląsteles visame ląstelių diapazone
Galite sujungti langelius per visą ląstelių diapazoną. Turite nustatyti pasirenkamą sujungimo metodo „Cross“ parametrą „True“. Mes turime tekstą langelyje A1, kaip parodyta žemiau:
Šis kodas sujungs langelių diapazoną A1: D1:
12345 | Sub MergeCellsAcross ()Diapazonas („A1: D1“). Sujungti: = tiesaPabaiga Sub |
Rezultatas yra toks: