Kuidas jagada veerg VBA kaudu

Anonim

Kui teil on raskusi teksti jagamisel kaheks või enamaks eraldi veeruks konkreetse märgi põhjal, peaksite seda artiklit lugema.

Selles artiklis õpime, kuidas jagada nimi kolmeks lahtriks, kasutades Microsoft Excelis VBA -d.

Võtame näite, et mõista, kus ja kuidas saame nime jagada.

Meil on veerus A nimede loend vormingus "Eesnimi Esialgne perekonnanimi". Soovime jagada kogu veeru kolmeks veeruks, millest üks sisaldab kõiki eesnimesid, teine ​​sisaldab algust ja kolmas sisaldab kõiki perekonnanimesid .

Nime jagamiseks kirjutame VBA koodi. Järgige allpool toodud samme:-

Nime jagamiseks kolmeks lahtriks kasutame VBA -d. Vaadake allolevat protseduuri ja koodi ning saate sellest hõlpsasti aru:-

  • Avage VBA leht ja vajutage klahvikombinatsiooni Alt+F11
  • Sisestage moodul
  • Seejärel minge sisestusmenüüsse ja klõpsake protseduuri, kus saate makro käivitamise protseduuri
  • Kirjutage allolev kood:-
Avalik alamjaotise Nimi () X = Lahtrid (Ridade arv, 1). Lõpp (xlUp). Rida A = 1 kuni XB = InStr (Lahtrid (A, 1), "") C = InStrRev (Lahtrid (A, 1 ), "") Lahtrid (A, 2) = vasak (lahtrid (A, 1), B) Lahtrid (A, 3) = keskmised (lahtrid (A, 1), B, C - B) Lahtrid (A, 4 ) = Paremal (lahtrid (A, 1), Len (lahtrid (A, 1)) - C) järgmine A lõpp alam 

Koodi selgitus:- Esiteks oleme andnud makro nime, seejärel kasutasime andmevahemiku määratlemiseks x -i ja seejärel kasutasime A, B ja C, et määratleda, kuidas väärtused lahtritest valida.

  • Makro käivitamiseks Excelis vajutage klahvi F5
  • Makro käivitamisel jagunevad nimed kolmeks veeruks

Järeldus: Sel viisil saame nimed jagada kolmeks veeruks, kasutades Microsoft Excelis VBA -d.

Kui teile meeldisid meie ajaveebid, jagage seda oma sõpradega Facebookis. Samuti saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd täiustada, täiendada või uuendada ning muuta see teie jaoks paremaks. Kirjuta meile meilisaidile