Kako v Excelu ustvariti vsa praštevila med dvema številkama?
Ste v Excelu že kdaj poskušali našteti vsa praštevila med dvema številkama? V tem članku bom govoril o nekaterih zanimivih metodah za reševanje te naloge.
Ustvari vsa praštevila med dvema danima številkama s formulami
Ustvari vsa praštevila med dvema danima številkama s funkcijo, ki jo določi uporabnik
Ustvari vsa praštevila med dvema danima številkama s formulami
Združevanje Določite ime funkcijo in formulami, lahko med dvema določenima številkama navedete ali ustvarite vsa glavna števila. Naredite naslednje:
1. S klikom ustvarite ime prvega obsega Formule > Upravitelj imen, in v Upravitelj imen pogovorno okno, kliknite Novo gumb, glej posnetek zaslona:
2. v Novo ime v pogovornem oknu v Ime vnesite besedilno polje RNG kot ime obsega in nato vnesite to formulo: = VRSTA (POSREDNO (List1! $ B $ 1 & ":" & List1! $ B $ 2)) (Sheet1 je vaš trenutni delovni list, ki ste ga uporabili, B1 in B2 so začetne in končne številke, ki ste jih navedli v Se nanaša na polje, nato kliknite OK za vrnitev v prejšnje pogovorno okno. Oglejte si posnetek zaslona:
3. Pojdi na klik Novo , da ustvarite drugo ime obsega v Novo ime v pogovorno okno vnesite ime Glavni v Ime in vnesite to formulo: =SMALL(IF(MMULT(--(IF(rng>TRANSPOSE(rng-Sheet1!$B$1+2),MOD(rng,(rng>TRANSPOSE(rng-Sheet1!$B$1+2))*TRANSPOSE(rng-Sheet1!$B$1+2)))=0),rng-Sheet1!$B$1+2)=0,rng),ROW(INDIRECT("1:"&Sheet1!$B$2))) (RNG je prvo ime obsega, ki ste ga ustvarili v koraku 2) v Se nanaša na besedilno polje, glej posnetek zaslona:
4. Nato kliknite OK in zaprite pogovorna okna in izberite en stolpec, v katerem želite navesti vsa osnovna števila, in vnesite to formulo: = IFERROR (prime, "")(Glavni je ime obsega, ki ste ga ustvarili v koraku 3) v vrstico s formulami in pritisnite CTRL+SHIFT+ENTER tipke skupaj, so vsa osnovna števila med tema dvema številkama navedena na spodnji sliki:
Ustvari vsa praštevila med dvema danima številkama s funkcijo, ki jo določi uporabnik
Če je prva metoda nekoliko težka, lahko tukaj uporabite a Uporabniško določena funkcija rešiti.
1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.
Koda VBA: Ustvari vsa praštevila med dvema določenima številkama:
Function PRIME(St, En As Long)
'Updateby Extendoffice 20160613
Dim num As String
For n = St To En
For m = 2 To n - 1
If n Mod m = 0 Then GoTo 20:
Next m
num = num & n & ","
20:
Next n
PRIME = num
End Function
3. Nato shranite in zaprite to kodo, se vrnite na delovni list, vnesite to formulo: = prime (10,100) (10 je začetna številka in 100 je končna številka, med katero želite dobiti praštevila, jih lahko spremenite po svoji potrebi) in pritisnite Vnesite in vse praštevila so prikazana v eni celici, glejte posnetek zaslona:
Najboljša orodja za pisarniško produktivnost
Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%
- Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
- Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
- Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
- Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
- Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
- Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
- Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
- Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
- Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
