Šajā apmācībā mēs aplūkosim dažādus veidus, kā jūs varat apvienot šūnas, izmantojot VBA.
Apvienojiet šūnas, izmantojot VBA
Jūs varat apvienot šūnas VBA, izmantojot metodi Range.Merge. Šāds kods apvienos šūnas A1: C1:
12345 | Apakš apvienošanās šūnas ()Diapazons ("A1: C1"). ApvienotBeigu apakš |
Rezultāts ir šāds:
Atvienojiet šūnas, izmantojot VBA
Apvienoto šūnu diapazonu var atvienot, izmantojot metodi Range.UnMerge. Pieņemsim, ka esat apvienojis šūnu diapazonu A1: D1. Lai atvienotu šūnas, varat izmantot vienu no diapazonā esošajām šūnu atsaucēm. Šis kods parāda, kā apvienot šūnas A1: D1, šajā gadījumā mēs izmantojam šūnu B1:
12345 | Sub UnmergeCells ()Diapazons ("B1"). UnMergeBeigu apakš |
Vairāk apvienošanas piemēru
Apvienot rindas, izmantojot VBA
Jūs varat apvienot rindas, izmantojot VBA, norādot rindu numurus, kurus vēlaties apvienot. Mums ir teksts šūnā A1, kas parādīts zemāk:
Šis kods apvienos 1-4 rindas:
12345 | Sub MergeRows ()Diapazons ("1: 4"). ApvienotBeigu apakš |
Rezultāts ir šāds:
Apvienot kolonnas, izmantojot VBA
Kolonnas var apvienot, izmantojot VBA un kolonnu burtus. Šis kods apvienos kolonnas A: C.
12345 | Apakš sapludināšanas kolonnas ()Diapazons ("A: C"). ApvienotBeigu apakš |
Rezultāts ir šāds:
Apvienot un centrēt šūnu saturu horizontāli
Jūs varat apvienot un centrēt šūnu saturu horizontāli šūnu diapazonā. Jums ir jāapvieno interesējošās šūnas un arī jāiestata diapazona objekta horizontālās izlīdzināšanas rekvizīts uz centru. Šūnā A1 ir teksts, kā parādīts zemāk:
Šāds kods apvienos šūnu diapazonu A1: D1 un centrēs šūnas A1 saturu horizontāli visā šūnu diapazonā:
123456 | Apakš apvienošana un centrsContentsHorizontally ()Diapazons ("A1: D1"). ApvienotDiapazons ("A1: D1"). HorizontalAlignment = xlCenterBeigu apakš |
Rezultāts ir šāds:
Apvienot un centrēt šūnu saturu vertikāli
Jūs varat apvienot un centrēt šūnu saturu vertikāli šūnu diapazonā. Jums ir jāapvieno interesējošās šūnas, kā arī jāiestata diapazona objekta vertikālās izlīdzināšanas rekvizīts uz centru. Šūnā A1 ir teksts, kā parādīts zemāk:
Šāds kods apvienos šūnu diapazonu A1: A4 un centrēs šūnas A1 saturu vertikāli visā šūnu diapazonā:
123456 | Apakš apvienošana un centrsContentsVertically ()Diapazons ("A1: A4"). ApvienotDiapazons ("A1: D1"). VerticalAlignment = xlCenterBeigu apakš |
Rezultāts ir šāds:
Šūnu apvienošana šūnu diapazonā
Jūs varat apvienot šūnas šūnu diapazonā. Apvienošanas metodes izvēles parametrs Across ir jāiestata uz True. Šūnā A1 ir teksts, kā parādīts zemāk:
Šāds kods apvienos šūnu diapazonu A1: D1:
12345 | Sub MergeCellsAcross ()Diapazons ("A1: D1"). Apvienot pāri: = TrueBeigu apakš |
Rezultāts ir šāds: