Kā sadalīt kolonnu caur VBA

Anonim

Ja jums ir grūtības sadalīt tekstu divās vai vairākās atsevišķās kolonnās, pamatojoties uz konkrēto rakstzīmi, jums vajadzētu izlasīt šo rakstu.

Šajā rakstā mēs uzzināsim, kā sadalīt vārdu 3 šūnās, izmantojot Microsoft Excel VBA.

Ņemsim piemēru, lai saprastu, kur un kā mēs varam sadalīt nosaukumu.

A slejā ir vārdu saraksts šādā formātā: "Vārds Sākotnējais uzvārds". Mēs vēlamies visu kolonnu sadalīt trīs kolonnās, no kurām vienā ir visi vārdi, otrajā - sākotnējais un trešajā - visi uzvārdi .

Mēs uzrakstīsim VBA kodu, lai sadalītu vārdu. Izpildiet tālāk norādītās darbības:-

Lai sadalītu nosaukumu 3 šūnās, mēs izmantosim VBA. Skatiet tālāk norādīto procedūru un kodu, un jūs to viegli sapratīsit:-

  • Atveriet VBA lapu un nospiediet Alt+F11
  • Ievietojiet moduli
  • Pēc tam dodieties uz ievietošanas izvēlni un noklikšķiniet uz procedūras, kur tiks parādīta procedūra makro sākšanai
  • Ierakstiet zemāk minēto kodu:-
Public Sub SplitName () X = šūnas (Rows.Count, 1). End (xlUp). Rinda A = 1 līdz XB = InStr (šūnas (A, 1), "") C = InStrRev (Šūnas (A, 1 ), "") Šūnas (A, 2) = pa kreisi (šūnas (A, 1), B) šūnas (A, 3) = vidējās (šūnas (A, 1), B, C - B) šūnas (A, 4 ) = Pa labi (šūnas (A, 1), Len (šūnas (A, 1)) - C) Next A End Sub 

Koda skaidrojums:- Vispirms mēs esam norādījuši makro nosaukumu, tad mēs izmantojām x, lai definētu datu diapazonu, un pēc tam mēs izmantojām A, B un C, lai noteiktu, kā vērtības jāizvēlas no šūnām.

  • Nospiediet taustiņu F5, lai programmā Excel palaistu makro
  • Palaižot makro, nosaukumi tiks sadalīti trīs kolonnās

Secinājums: Tādā veidā mēs varam sadalīt nosaukumus 3 kolonnās, izmantojot Microsoft Excel VBA.

Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums e -pasta vietnē