Kā iegūt vārdu skaitu programmā Excel (izmantojot vienkāršas formulas)

Vai vēlaties iegūt vārdu skaitu programmā Excel? Ticiet vai nē, programmā Excel nav iebūvēta vārdu skaitītāja.

Bet neuztraucieties.

Foršs Excel funkciju kopums (vai nedaudz VBA, ja jūtaties izdomāts) var to viegli izdarīt jūsu vietā.

Šajā apmācībā es parādīšu pāris veidus, kā saskaitīt vārdus programmā Excel, izmantojot vienkāršas formulas. Un beigās tiks apskatīts arī paņēmiens, kā izveidot pielāgotu formulu, izmantojot VBA, kas ātri parādīs jebkura teksta vārdu skaitu jebkurā šūnā.

Formula Word skaita iegūšanai programmā Excel

Pirms es jums sniedzu precīzu formulu, ātri apskatīsim loģiku, lai iegūtu vārdu skaitu.

Pieņemsim, ka man ir teikums, kā parādīts zemāk, un kuram vēlos iegūt vārdu skaitu.

Lai gan programma Excel nevar saskaitīt vārdu skaitu, tā var saskaitīt atstarpju skaitu teikumā.

Tātad, lai iegūtu vārdu skaitu, mēs varam skaitīt šīs atstarpes, nevis vārdus un pievienot 1 kopējam skaitlim (jo vietu skaits būtu par vienu mazāk vārdu).

Tagad var būt divas iespējas:

1. Starp katru vārdu ir viena atstarpe
2. Starp vārdiem ir vairākas atstarpes.

Tātad, redzēsim, kā katrā gadījumā saskaitīt kopējo vārdu skaitu.

1. piemērs - ja starp vārdiem ir viena atstarpe

Pieņemsim, ka šūnā A1 ir šāds teksts: Izlaidiet kaķi no somas

Lai saskaitītu vārdu skaitu, šeit es izmantoju formulu:

= LEN (A1) -LEN (AIZSTĀJIS (A1, "", ""))+1

Rezultātā tiktu atgriezts “7”.

Šī formula darbojas šādi.

• LEN (A1) - Šī formulas daļa atgriež 26, kas ir kopējais rakstzīmju skaits tekstā šūnā A1. Tas ietver teksta rakstzīmes, kā arī atstarpes rakstzīmes.
• SUBSTITUTE (A1, ”“, ””) - šī formulas daļa no teksta noņem visas atstarpes. Tātad rezultāts šajā gadījumā būtu Izmetiet somu.
• LEN (AIZSTĀJUMS (A1, "",“”) - Šī formulas daļa saskaita kopējo rakstzīmju skaitu tekstā, kurā nav atstarpju. Tātad rezultāts būs 20.
• LEN (A1) -LEN (AIZSTĀJUMS (A1, "",“”)) - Tas atņemtu teksta garumu bez atstarpēm no teksta garuma ar atstarpēm. Iepriekš minētajā piemērā tas būtu 26-20, kas ir 6.
• = LEN (A1) -LEN (AIZSTĀJIS (A1, "",“”))+1 - Kopējam rezultātam mēs pievienojam 1, jo kopējais atstarpju skaits ir par vienu mazāks nekā kopējais vārdu skaits. Piemēram, ir viena atstarpe divos vārdos un divas atstarpes trīs vārdos.

Tagad tas darbojas labi, ja starp vārdiem ir tikai viena atstarpe. Bet tas nedarbotos, ja starp vārdiem ir vairāk nekā viena atstarpe.

Tādā gadījumā izmantojiet nākamā piemēra formulu.

2. piemērs: ja starp vārdiem ir vairākas atstarpes

Pieņemsim, ka jums ir šāds teksts: Izlaidiet kaķi no somas

Šajā gadījumā starp vārdiem ir vairākas atstarpes.

Lai iegūtu vārdu skaitu, mums vispirms ir jānoņem visas papildu atstarpes (piemēram, lai starp diviem vārdiem būtu tikai viena atstarpe) un pēc tam jāskaita kopējais atstarpju skaits.

Šeit ir formula, kas mums sniegs pareizo vārdu skaitu:

= LEN (TRIM (A1))-LEN (SUBSTITUTE (A1, "", ""))+1

Šī ir līdzīga formula, kas izmantota iepriekš minētajā piemērā, ar nelielām izmaiņām - šeit mēs esam izmantojuši arī funkciju TRIM.

Excel TRIM funkcija noņem visas sākuma, beigu un papildu atstarpes (izņemot atsevišķas atstarpes starp vārdiem).

Pārējā formula darbojas tāpat (kā paskaidrots 1. piemērā).

Piezīme. Ja starp vārdiem nav atstarpju, tas tiek uzskatīts par vienu vārdu.

VBA pielāgotas funkcijas izmantošana vārdu saskaitīšanai programmā Excel

Lai gan iepriekš minētās formulas darbojas lieliski, ja jums bieži jāaprēķina vārdu skaits, varat izmantot VBA, lai izveidotu pielāgotu funkciju (sauktu arī par lietotāja definētu funkciju).

Pielāgotās funkcijas izmantošanas priekšrocība ir tā, ka varat to izveidot vienu reizi un pēc tam izmantot tāpat kā jebkuru citu parasto Excel funkciju. Tā vietā, lai izveidotu garu sarežģītu formulu, kā mēs to darījām divos iepriekš minētajos piemēros, jums ir vienkārša formula, kas ņem šūnu atsauci un uzreiz sniedz vārdu skaitu.

Šeit ir kods, kas izveidos šo pielāgoto funkciju, lai iegūtu vārdu skaitu programmā Excel.

Funkcija WordCount (CellRef As Range) Dim TextStrng kā String Dim Result () Kā String Result = Split (WorksheetFunction.Trim (CellRef.Text), "") WordCount = UBound (Result ()) + 1 Beigu funkcija

Kad esat izveidojis, varat izmantot WordCount funkciju tāpat kā jebkuru citu parasto Excel funkciju.

Iepriekš minētajā pielāgotās funkcijas kodā esmu izmantojis darblapas funkciju TRIM, lai noņemtu visus sākuma, beigu un dubultos atstarpes starp vārdiem. Tas nodrošina, ka visas trīs šūnas dod vienādu rezultātu, jo tiek skaitīti tikai vārdi, nevis dubultās atstarpes.

Kā darbojas šī formula:

Iepriekš minētais VBA kods vispirms izmanto TRIM funkciju, lai atsauces šūnā no teksta virknes noņemtu visas sākuma, beigu un dubultās atstarpes.

Kad tai ir iztīrīta virkne, tā izmanto SPLIT funkciju VBA, lai sadalītu teksta virkni, pamatojoties uz norobežotāju, ko esam norādījuši kā atstarpes rakstzīmi. Tātad katrs vārds tiek atdalīts kā saglabāts kā atsevišķs vienums mainīgajā rezultātā.

Pēc tam mēs izmantojam funkciju UBOUND, lai saskaitītu kopējo vienumu skaitu, kas tika saglabāti rezultātu mainīgajos. Tā kā VBA bāze ir 0, mums jāpievieno 1, lai iegūtu kopējo vārdu skaitu.

Tas nozīmē, ka rezultāts (0) saglabā pirmo vārdu, rezultāts (1) saglabā otro vārdu utt. Tā kā šī skaitīšana sākas no 0, mums ir jāpievieno 1, lai iegūtu reālo vārdu skaitu.

Kur likt šo kodu?

Veidojot pielāgotu funkciju, kods jāievieto darbgrāmatas VB redaktorā (kas ir darbgrāmatas aizmugure, kurā varat rakstīt kodu, lai automatizētu uzdevumus un izveidotu pielāgotas funkcijas).

Tālāk ir norādītas darbības, lai darbgrāmatā ievietotu funkcijas “GetNumeric” kodu.

1. Dodieties uz cilni Izstrādātājs.
2. Noklikšķiniet uz opcijas Visual Basic. Tas atvērs VB redaktoru aizmugurē.
3. VB redaktora Project Explorer rūtī ar peles labo pogu noklikšķiniet uz jebkura darbgrāmatas objekta, kurā vēlaties ievietot kodu. Ja neredzat Project Explorer, dodieties uz cilni Skats un noklikšķiniet uz Project Explorer.
4. Dodieties uz Ievietot un noklikšķiniet uz moduļa. Tādējādi jūsu darbgrāmatai tiks ievietots moduļa objekts.
5. Kopējiet un ielīmējiet kodu moduļa logā.

Kad esat nokopējis kodu koda logā, varat atgriezties savā darblapā un izmantot šo funkciju tāpat kā jebkuru citu parasto Excel funkciju.

Vienkārši ierakstiet = Vārds un tas parādīs formulas sarakstu.

Tas aizņem vienu argumentu, kas ir šūnu atsauce, un uzreiz sniedz jums vārdu skaitu tajā.