Jak generować numery loterii w programie Excel?
Czy kiedykolwiek myślałeś o generowaniu liczb loterii w Excelu lub samodzielnym tworzeniu generatora liczb loterii w Excelu? W tym artykule przedstawiam trzy metody łatwego wykonania tego zadania.
- Generuj numery loterii za pomocą funkcji programu Excel (5 kroki)
- Wygeneruj numery loterii za pomocą VBA Macro
- Generuj numery loterii za pomocą Kutools for Excel (2 kroki)
Generuj numery loterii za pomocą funkcji programu Excel
Ta metoda przeprowadzi Cię przez zastosowanie kilku funkcji programu Excel do generowania liczb loterii. Możesz wykonać następujące czynności:
1. W pustym arkuszu wpisz nagłówki kolumn w zakresie A1: C1, jak pokazano na poniższym zrzucie ekranu:
2. Wprowadź formuły w kolumnie A, kolumnie B i kolumnie C:
(1) W komórce A2 wprowadź formułę = LOS (), a następnie przeciągnij uchwyt Wypełnij do zakresu A2: A50.
(2) W komórce B2 wprowadź formułę =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1, a następnie przeciągnij uchwyt wypełnienia do zakresu B2: B50. (W formule A2 to liczba losowa pozostała do bieżącej komórki, $ A $ 2: $ A $ 50 to wszystkie liczby losowe, które otrzymaliśmy z pierwszą formułą, B $ 1 to pierwsza komórka w kolumnie B, a B1 to komórka powyżej bieżącej komórka).
(3) W zakresie C2: C50 wprowadź numery sekwencyjne od 1 do 49.
Następnie otrzymasz tabelę, jak pokazano na lewym ekranie:
![]() |
Formuła jest zbyt skomplikowana, by ją zapamiętać? Zapisz formułę jako wpis Auto Text do ponownego użycia za pomocą jednego kliknięcia w przyszłości! Czytaj więcej ... Przetestuj za darmo |
3. Znajdź pusty zakres, wpisz numery sekwencyjne poziomo w rzędzie, jak pokazano poniżej:
4. Pod pierwszą liczbą sekwencyjną 1 wprowadź wzór = WYSZUKAJ.PIONOWO (G1, $ B 1 $: $ C $ 50,2, FALSE) do niego i przeciągnij uchwyt wypełnienia do wymaganego zakresu.
Uwagi: W tej formule G1 to komórka z pierwszą liczbą sekwencyjną 1, $ B $ 1: $ C $ 50 to kolumna Unique Rank i kolumna Ball Number, 2 oznacza znalezienie wartości w drugiej kolumnie zakresu $ B $ 1: $ C $ 50 .
Następnie otrzymasz numery loterii, jak pokazano poniżej:
5. To jest opcjonalne. Aby zapobiec automatycznej zmianie numerów loterii po odświeżeniu bieżącego arkusza roboczego, możesz kliknąć ikonę Formuła > Opcje obliczeniowe > Instrukcja obsługi.
Z łatwością wymień wszystkie kombinacje kilku serii danych w programie Excel
Kutools dla Excela Wyświetl wszystkie kombinacje Narzędzie jest przeznaczone do generowania wszystkich możliwych kombinacji z kilku podanych serii danych i umieszczania tych kombinacji w kolumnie, jak pokazano poniżej.

Kutools dla programu Excel - Zawiera ponad 300 przydatnych narzędzi dla programu Excel. Pełna wersja bezpłatnej wersji próbnej 30-dzień, karta kredytowa nie jest wymagana! Zdobądź To Teraz
Wygeneruj numery loterii za pomocą VBA Macro
Ta metoda poprowadzi Cię do zastosowania makra VBA do generowania liczb loterii w programie Excel. Wykonaj następujące czynności:
1. naciśnij inny + F11 klawisze, aby otworzyć okno Microsoft Visual Basic for Applications.
2, Kliknij wstawka > Moduł aby otworzyć nowe okno modułu i wklej do niego następujący kod VBA:
VBA: Generator liczb loterii w programie 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, wciśnij F5 lub kliknij run przycisk, aby uruchomić to makro VBA.
4. Teraz w wyskakującym oknie dialogowym określ komórkę, w której mają być wyświetlane numery loterii, i kliknij OK przycisk.
Następnie zobaczysz 6 unikalnych numerów loterii jest generowanych i wyświetlanych w określonych komórkach.
Generuj numery loterii za pomocą Kutools for Excel
Jeśli masz zainstalowany Kutools dla programu Excel, jego plik Wstaw losowe dane narzędzie może pomóc w natychmiastowym generowaniu liczb loterii w programie Excel.
Kutools dla programu Excel - Zawiera ponad 300 przydatnych narzędzi dla programu Excel. Pełna wersja bezpłatnej wersji próbnej 30-dzień, karta kredytowa nie jest wymagana! Bezpłatna wersja próbna teraz!
1. Wybierz 6 sąsiednich komórek, na przykład A1: F1, a następnie kliknij Kutools > wstawka > Wstaw losowe dane.
2. Teraz pojawia się okno dialogowe Wstaw losowe dane. Przejdź do Liczba całkowita tab, wpisz 1 in Od pole, wpisz 49 in Do zaznacz pole Unikalne wartości opcję i kliknij przycisk OK przycisk. Teraz zobaczysz 6 unikalnych numerów loterii, które są generowane i natychmiast wyświetlane w wybranych komórkach.
Kutools dla programu Excel - Zawiera ponad 300 przydatnych narzędzi dla programu Excel. Pełna wersja bezpłatnej wersji próbnej 30-dzień, karta kredytowa nie jest wymagana! Zdobądź To Teraz
Demo: generuj numery loterii za pomocą Kutools for Excel
Podobne artykuły:
Losowo wybierz komórki na podstawie kryteriów w programie Excel
Losowo dodaj kolor tła / wypełnienia dla komórek w programie Excel
Najlepsze narzędzia biurowe
Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%
- Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
- Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
- Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
- Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
- Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
- Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
- Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
- Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
- Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!















