Cum să împărțiți coloana prin VBA

Anonim

Dacă vă confruntați cu probleme în divizarea textului în două sau mai multe coloane separate pe baza caracterului specific, atunci ar trebui să citiți acest articol.

În acest articol, vom învăța cum să împărțim numele în 3 celule, folosind VBA în Microsoft Excel.

Să luăm un exemplu pentru a înțelege unde și cum putem împărți numele.

Avem o listă de nume în formatul „Prenumele inițial Prenumele” în coloana A. Vrem să împărțim întreaga coloană în trei coloane, cu una care conține toate prenumele, al doilea conține inițial și al treilea conține toate numele de familie .

Vom scrie codul VBA pentru a împărți numele. Urmați pașii de mai jos: -

Pentru a împărți numele în 3 celule, vom folosi VBA. Consultați procedura și codul de mai jos și îl veți înțelege cu ușurință: -

  • Deschideți pagina VBA și apăsați Alt + F11
  • Introduceți un modul
  • Apoi accesați meniul de inserare și faceți clic pe procedura, unde veți obține procedura de pornire a macro-ului
  • Scrieți codul menționat mai jos: -
Public Sub SplitName () X = Cells (Rows.Count, 1). End (xlUp). Row For A = 1 To XB = InStr (Cells (A, 1), "") C = InStrRev (Cells (A, 1) ), "") Celule (A, 2) = Stânga (Celule (A, 1), B) Celule (A, 3) = Mediu (Celule (A, 1), B, C - B) Celule (A, 4 ) = Dreapta (Celule (A, 1), Len (Celule (A, 1)) - C) Următorul A End Sub 

Cod Explicație: - Mai întâi am dat numele macro, apoi am folosit x pentru a defini intervalul de date și apoi am folosit A, B și C pentru a defini modul în care valorile ar trebui să fie selectate din celule.

  • Apăsați tasta F5 pentru a rula Macro în Excel
  • Când veți rula macro-ul, numele se vor împărți în trei coloane

Concluzie: În acest fel, putem împărți numele în 3 coloane, folosind VBA în Microsoft Excel.

Dacă ți-au plăcut blogurile noastre, împărtășește-le prietenilor tăi de pe Facebook. Și, de asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți, completa sau inova munca noastră și să o îmbunătățim. Scrieți-ne pe site-ul de e-mail