Hvordan genereres lotterinummer i Excel?
Har du nogensinde tænkt på at generere lotterinumre i Excel eller lave en lotterinummergenerator i Excel selv? I denne artikel giver jeg tre metoder til at få det gjort let.
- Generer lotterinumre med Excel-funktioner (5 trin)
- Generer lotterinumre med VBA-makro
- Generer lotterinumre med Kutools til Excel (2 trin)
Generer lotterinumre med Excel-funktioner
Denne metode vil lede dig gennem anvendelse af flere Excel-funktioner til at generere lotterinumre. Og du kan gøre som følger:
1. Skriv kolonneoverskrifter i område A1: C1 i et tomt regneark som vist på nedenstående skærmbillede:
2. Indtast formler i kolonne A, kolonne B og kolonne C:
(1) Indtast formlen i celle A2 = RAND (), og træk derefter fyldhåndtaget til området A2: A50.
(2) Indtast formlen i celle B2 =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1, og træk derefter fyldhåndtaget til området B2: B50. (I formlen er A2 det tilfældige tal, der er tilbage til den aktuelle celle, $ A $ 2: $ A $ 50 er alle tilfældige tal, vi fik med den første formel, B $ 1 er den første celle i kolonne B, og B1 er cellen over strømmen celle).
(3) I område C2: C50 skal du indtaste sekvensnumre fra 1 til 49.
Derefter får du et bord som vist på venstre skærmbillede:
![]() |
Formel er for kompliceret til at huske? Gem formlen som en automatisk tekstindgang til genbrug med kun et klik i fremtiden! Læs mere… Gratis prøveversion |
3. Find et tomt område, skriv sekvensnumre vandret i en række som vist på nedenstående skærmbillede:
4. Indtast formlen under det første sekvensnummer på 1 = VLOOKUP (G1, $ B $ 1: $ C $ 50,2, FALSK) ind i det, og træk Fill Handle til det område, du har brug for.
Bemærk: I denne formel er G1 cellen med det første sekvensnummer på 1, $ B $ 1: $ C $ 50 er Unique Rank kolonne og Ball Number kolonne, 2 betyder find værdier i den anden kolonne i Range $ B $ 1: $ C $ 50 .
Derefter får du lotterinumrene som vist på nedenstående skærmbillede:
5. Det er valgfrit. For at forhindre, at lotterinummer ændres automatisk, når det aktuelle regneark opdateres, kan du klikke på Formula > Beregningsindstillinger > Manuel.
Liste nemt over alle kombinationer af flere serier af data i Excel
Kutools til Excel Liste over alle kombinationer hjælpeprogrammet er designet til at generere alle mulige kombinationer fra flere givne dataserier og liste disse kombinationer i en kolonne som vist nedenstående skærmbillede.

Kutools til Excel - Indeholder mere end 300 praktiske værktøjer til Excel. Gratis prøveversion med fuld funktion 30-dag, intet kreditkort påkrævet! Hent den nu
Generer lotterinumre med VBA-makro
Denne metode vil guide dig til at anvende en VBA-makro til at generere lotterinumre i Excel. Gør følgende:
1. Trykke andre + F11 taster for at åbne vinduet Microsoft Visual Basic for Applications.
2. Klik indsatte > Moduler for at åbne et nyt modulvindue og indsætte følgende VBA-kode i det:
VBA: Lotterinummergenerator i Excel
Sub LotteyCode()
Dim Rng As Range
Dim WorkRng As Range
Dim xNumbers(49) As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Out put to (single cell):", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Range("A1")
For xIndex = 1 To 49
xNumbers(xIndex) = xIndex
Next
For xIndex = 1 To 6
xNum = 1 + Application.Round(Rnd * (49 - xIndex), 0)
WorkRng.Offset(0, xIndex - 1).Value = xNumbers(xNum)
xNumbers(xNum) = xNumbers(50 - xIndex)
Next
End Sub
3. Tryk på F5 eller klik på Kør knappen for at køre denne VBA-makro.
4. Nu i dialogboksen dukker op, skal du angive en celle, der skal udgive lotterinumrene, og klikke på OK .
Derefter vil du se 6 unikke lotterinumre genereres og vises i de angivne celler.
Generer lotterinumre med Kutools til Excel
Hvis du har installeret Kutools til Excel, er det Indsæt tilfældige data hjælpeprogram kan hjælpe dig med at generere lotterinumre i Excel på én gang.
Kutools til Excel - Indeholder mere end 300 praktiske værktøjer til Excel. Gratis prøveversion med fuld funktion 30-dag, intet kreditkort påkrævet! Gratis prøveperiode nu!
1. Vælg 6 tilstødende celler, såsom A1: F1, og klik derefter på Kutools > indsatte > Indsæt tilfældige data.
2. Nu kommer dialogboksen Indsæt tilfældige data ud. Gå til Integer fane, skriv 1 in Fra boks, skriv 49 in Til afkrydsningsfeltet Unikke værdier valgmulighed, og klik på knappen OK knap. Nu vil du se 6 unikke lotterinumre genereres og vises med det samme i de valgte celler.
Kutools til Excel - Indeholder mere end 300 praktiske værktøjer til Excel. Gratis prøveversion med fuld funktion 30-dag, intet kreditkort påkrævet! Hent den nu
Demo: generer lotterinumre med Kutools til Excel
Relaterede artikler:
Marker celler tilfældigt baseret på kriterier i Excel
Tilføje tilfældigt baggrunds- / udfyldningsfarve for celler i Excel
De bedste Office-produktivitetsværktøjer
Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%
- Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
- Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
- Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
- Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
- Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
- Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
- Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
- Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
- Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!















