În acest tutorial, vom analiza diferitele moduri în care puteți îmbina celulele folosind VBA.
Combinați celulele folosind VBA
Puteți îmbina celulele în VBA folosind metoda Range.Merge. Următorul cod va îmbina celulele A1: C1:
12345 | Sub MergingCells ()Interval („A1: C1”). ÎmbinațiSfârșitul Sub |
Rezultatul este:
Anulează celulele folosind VBA
Puteți anula un interval de celule combinate utilizând metoda Range.UnMerge. Să presupunem că ați combinat intervalul de celule A1: D1. Puteți utiliza una dintre referințele de celule din interval pentru a anula celulele. Următorul cod vă arată cum să debarasați celulele A1: D1, în acest caz folosim celula B1:
12345 | Sub UnmergeCells ()Interval ("B1"). DezunescSfârșitul Sub |
Mai multe exemple de îmbinare
Merge Rows folosind VBA
Puteți îmbina rândurile folosind VBA specificând numerele de rând pe care doriți să le îmbinați. Avem textul din celula A1 prezentat mai jos:
Următorul cod va îmbina rândurile 1-4:
12345 | Sub MergeRows ()Interval („1: 4”). ÎmbinațiSfârșitul Sub |
Rezultatul este:
Combinați coloanele folosind VBA
Puteți îmbina coloanele folosind VBA și literele de coloană. Următorul cod va îmbina coloanele A: C.
12345 | Sub MergeColumns ()Interval („A: C”). ÎmbinațiSfârșitul Sub |
Rezultatul este:
Mergeți și centrați conținutul celulei pe orizontală
Puteți îmbina și centra conținutul celulei pe orizontală într-un interval de celule. Trebuie să îmbinați celulele de interes și, de asemenea, să setați proprietatea de aliniere orizontală a obiectului de raza la centru. Avem textul în celula A1 așa cum se arată mai jos:
Următorul cod va îmbina intervalul de celule A1: D1 și va centra conținutul celulei A1 orizontal pe acest interval de celule:
123456 | Sub MergeandCenterContentsHorizontally ()Interval („A1: D1”). ÎmbinațiGama ("A1: D1"). HorizontalAlignment = xlCenterSfârșitul Sub |
Rezultatul este:
Îmbinați și centrați conținutul celulei pe verticală
Puteți îmbina și centra conținutul celulei pe verticală într-un interval de celule. Trebuie să îmbinați celulele de interes și, de asemenea, să setați proprietatea de aliniere verticală a obiectului de raza la centru. Avem textul în celula A1 așa cum se arată mai jos:
Următorul cod va îmbina intervalul de celule A1: A4 și va centra conținutul celulei A1 vertical pe acest interval de celule:
123456 | Sub MergeandCenterContentsVertically ()Interval („A1: A4”). ÎmbinațiGama ("A1: D1"). VerticalAlignment = xlCenterSfârșitul Sub |
Rezultatul este:
Combinați celulele într-o gamă de celule
Puteți îmbina celulele într-un interval de celule. Trebuie să setați parametrul opțional Across al metodei Merge la True. Avem textul în celula A1 așa cum se arată mai jos:
Următorul cod va îmbina intervalul de celule A1: D1:
12345 | Sub MergeCellsAcross ()Interval („A1: D1”). Îmbinați peste: = AdevăratSfârșitul Sub |
Rezultatul este: