Deze methode helpt u bij het toepassen van verschillende Excel-functies om lotnummers te genereren. En je kunt het als volgt doen:

1. Typ in een leeg werkblad kolomkoppen in bereik A1: C1 zoals hieronder weergegeven schermafbeelding:

2. Voer formules in kolom A, kolom B en kolom C in:

(1) Voer in cel A2 de formule in = RAND ()en sleep vervolgens de vulgreep naar het bereik A2: A50.
(2) Voer in cel B2 de formule in =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1en sleep vervolgens de vulhendel naar het bereik B2: B50. (In de formule is A2 het willekeurige getal dat overblijft naar de huidige cel, $ A $ 2: $ A $ 50 zijn allemaal willekeurige getallen die we hebben met de eerste formule, B $ 1 is de eerste cel in kolom B en B1 is de cel boven de huidige cel).
(3) Voer in bereik C2: C50 de volgnummers in van 1 tot 49.

Vervolgens krijg je een tabel zoals de linker schermafbeelding wordt getoond:

 

De formule is te ingewikkeld om te onthouden? Sla de formule op als een Auto Text-invoer voor hergebruik met slechts één klik in de toekomst! Lees meer ...     gratis trial

3. Zoek een leeg bereik, typ volgnummers horizontaal in een rij zoals hieronder weergegeven schermafbeelding:

4. Voer onder het eerste volgnummer 1 de formule in = VERT.ZOEKEN (G1, $ B $ 1: $ C $ 50,2, FALSE) erin en sleep de vulhendel naar het bereik dat u nodig hebt.

Note: In deze formule is G1 de cel met het eerste volgnummer van 1, $ B $ 1: $ C $ 50 zijn de kolom Unieke rangorde en de kolom Balnummer, 2 betekent zoekwaarden in de tweede kolom van Bereik $ B $ 1: $ C $ 50 .

Vervolgens krijgt u de lotnummers zoals hieronder weergegeven schermafbeelding:

5. Het is optioneel. Om te voorkomen dat de lotnummers automatisch veranderen wanneer het huidige werkblad wordt vernieuwd, kunt u op de Formule > Berekeningsopties > Handmatig.

Maak een lijst van alle combinaties van verschillende reeksen gegevens in Excel

Kutools voor Excel's Maak een lijst van alle combinaties hulpprogramma is ontworpen om alle mogelijke combinaties van verschillende gegeven reeksen gegevens algemeen te maken en deze combinaties in een kolom op te sommen zoals onderstaand screenshot.

Deze methode helpt u bij het toepassen van een VBA-macro om lotnummers in Excel te genereren. Ga als volgt te werk:

1. pers anders + F11 -toetsen om het venster Microsoft Visual Basic for Applications te openen.

2. Klikken Invoegen > Module om een ​​nieuw modulevenster te openen en de volgende VBA-code erin te plakken:

VBA: lotnummergenerator in 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. druk de F5 toets of klik op de lopen knop om deze VBA-macro uit te voeren.

4. Geef nu in het pop-upvenster een cel op om de lotnummers uit te voeren en klik op de OK knop.

Vervolgens ziet u dat er 6 unieke lotnummers worden gegenereerd en weergegeven in de opgegeven cellen.

Als u Kutools voor Excel hebt geïnstalleerd, is het Voeg willekeurige gegevens in hulpprogramma kan u helpen lotnummers in Excel in één keer te genereren.

1. Selecteer 6 aangrenzende cellen, zoals A1: F1, en klik vervolgens op het Kutools > Invoegen > Voeg willekeurige gegevens in.

2. Nu verschijnt het dialoogvenster Willekeurige gegevens invoegen. Ga naar het Geheel getal tabblad, typ 1 in Van vak, type 49 in Naar vakje, vink het Unieke waarden optie en klik op de OK knop. Nu zult u zien dat 6 unieke lotnummers worden gegenereerd en onmiddellijk in de geselecteerde cellen worden weergegeven.

Selecteer willekeurig cellen op basis van criteria in Excel

Voeg willekeurig achtergrond- / vulkleur toe voor cellen in Excel