Kaip padalinti stulpelį per VBA

Anonim

Jei susiduriate su sunkumais skaidydami tekstą į du ar daugiau atskirų stulpelių pagal konkretų simbolį, turėtumėte perskaityti šį straipsnį.

Šiame straipsnyje mes sužinosime, kaip padalinti pavadinimą į 3 langelius, naudojant „Microsoft Excel“ VBA.

Paimkime pavyzdį, kad suprastume, kur ir kaip galime padalyti pavadinimą.

A stulpelyje turime vardų sąrašą formatu „Vardas Pradinė pavardė“. Norime visą stulpelį padalyti į tris stulpelius, iš kurių viename yra visi vardai, antrame - pradinis, o trečiame - visos pavardės .

Mes parašysime VBA kodą, kad padalintume pavadinimą. Atlikite toliau nurodytus veiksmus:-

Norėdami padalyti pavadinimą į 3 langelius, naudosime VBA. Žiūrėkite žemiau pateiktą procedūrą ir kodą, ir jūs tai lengvai suprasite:-

  • Atidarykite VBA puslapį ir paspauskite Alt+F11
  • Įdėkite modulį
  • Tada eikite į įterpimo meniu ir spustelėkite procedūrą, kur gausite makrokomandos paleidimo procedūrą
  • Parašykite žemiau nurodytą kodą:-
Public Sub SplitName () X = Ląstelės (Rows.Count, 1). End (xlUp). Row For A = 1 To XB = InStr (Cells (A, 1), "") C = InStrRev (Cells (A, 1 ), "") Ląstelės (A, 2) = kairės (ląstelės (A, 1), B) ląstelės (A, 3) = vidurinės (ląstelės (A, 1), B, C - B) ląstelės (A, 4 ) = Dešinė (langeliai (A, 1), Len (langeliai (A, 1)) - C) Kitas A pabaiga 

Kodo paaiškinimas:- Pirmiausia nurodėme makrokomandos pavadinimą, tada duomenų diapazonui apibrėžti naudojome x, o tada A, B ir C nustatėme, kaip reikšmės turėtų būti paimtos iš langelių.

  • Norėdami paleisti makrokomandą programoje „Excel“, paspauskite klavišą F5
  • Kai vykdysite makrokomandą, pavadinimai bus suskirstyti į tris stulpelius

Išvada: Tokiu būdu mes galime padalinti pavadinimus į 3 stulpelius, naudodami „Microsoft Excel“ VBA.

Jei jums patiko mūsų tinklaraščiai, pasidalykite jais su draugais „Facebook“. Taip pat galite sekti mus „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime patobulinti, papildyti ar naujovinti savo darbą ir padaryti jį geresnį. Parašykite mums el