Jak tworzyć szczęśliwe nazwy losowań w programie Excel?
W swojej codziennej pracy czasami musisz losowo wybrać niektórych pracowników z długiej listy jako szczęśliwe nazwiska. W programie Excel, jak możesz losowo wybrać nazwy do szczęśliwego losowania? W tym artykule omówię kilka przydatnych metod radzenia sobie z tą pracą w programie Excel.
Wyodrębnij losowe nazwy do szczęśliwego losowania ze wzorem
Wyodrębnij losowe nazwy do szczęśliwego losowania za pomocą kodu VBA
Wybierz losowe nazwy do szczęśliwego losowania za pomocą Kutools for Excel
Wyodrębnij losowe nazwy do szczęśliwego losowania ze wzorem
Na przykład chcę wyodrębnić 3 nazwy z listy nazwisk, poniższa długa formuła może ci pomóc, wykonaj następujące czynności:
Wprowadź tę formułę do pustej komórki, w której chcesz umieścić wynik: =IF(ROWS(C$2:C2)>B$2,"",INDEX(A$2:A$16,AGGREGATE(15,6,((ROW(A$2:A$16)-ROW(A$2)+1)/ISNA(MATCH(A$2:A$16,C$1:C1,0))),RANDBETWEEN(1,ROWS(A$2:A$16)-COUNTA(C$1:C1)+1)))) , a następnie przeciągnij uchwyt wypełniania w dół do komórek, jak potrzebujesz, zobacz zrzut ekranu:
Uwagi:
1. W powyższym wzorze: A2: A16 to lista nazw, z której chcesz wyodrębnić losowo, B2 to wymagana liczba, którą chcesz wyodrębnić nazwy, C2 to komórka, w której należy wprowadzić formułę, a C1 to komórka powyżej komórki z formułą.
2. Możesz nacisnąć F9 klucz, aby losowo uzyskać kolejną grupę nowych nazw.
Wyodrębnij losowe nazwy do szczęśliwego losowania za pomocą kodu VBA
Tutaj kod VBA również może pomóc w zakończeniu tego zadania, wykonaj następujące czynności:
1. Przytrzymaj Alt + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2, Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Wyodrębnij losowe nazwy z listy:
Public Sub LuckyDraw()
Dim I, J, xRnd As Long
Dim xSRg, xDRg As Range
Dim xDic As New Dictionary
Dim xnum, xLastRow As Long
On Error Resume Next
Set xSRg = Application.InputBox("Please select the data list:", "KuTools for Excel", Selection.Address, , , , , 8)
If xSRg Is Nothing Then Exit Sub
Set xDRg = Application.InputBox("Please selecta cell to put the result:", "KuTools for Excel", , , , , , 8)
If xDRg Is Nothing Then Exit Sub
xLastRow = xSRg.Rows.Count
Set xSRg = xSRg(1)
Set xDRg = xDRg(1)
xnum = Range("B2")
If xnum < 1 Then Exit Sub
J = 0
For I = 1 To xnum
LabExit:
xRnd = Int(Rnd() * xLastRow)
If xDic.Exists(xRnd) Then GoTo LabExit
xDic.Add xRnd, ""
xDRg.Offset(J, 0).Value = xSRg.Offset(xRnd, 0).Value
J = J + 1
Next
End Sub
Uwagi: W powyższym kodzie, B2 to komórka zawiera liczbę nazw, które chcesz wyodrębnić.
3. Po wstawieniu kodu kliknij Narzędzia > Referencje w otwartym Microsoft Visual Basic for Applications okno, a następnie w wyskoczył Referencje - VBAProject okno dialogowe, zaznacz Środowisko wykonawcze skryptów firmy Microsoft Microsoft opcja w Dostępne referencje pole listy, zobacz zrzut ekranu:
4. A następnie kliknij OK , aby zamknąć okno dialogowe, a następnie naciśnij F5 klucz do uruchomienia tego kodu i pojawia się okno zachęty przypominające o wybraniu listy danych, z której chcesz wyodrębnić nazwy, patrz zrzut ekranu:
5, Kliknij OK przycisk i pojawi się kolejne okno zachęty, wybierz komórkę, w której chcesz umieścić wynik, zobacz zrzut ekranu:
6. Następnie kliknij OK, a żądana liczba nazw została utworzona losowo na raz, patrz zrzut ekranu:
Wybierz losowe nazwy do szczęśliwego losowania za pomocą Kutools for Excel
Być może powyżej dwóch metod jest trudnych dla większości z nas, jeśli masz Kutools dla programu Excel, Z siedzibą w Sortuj zakres losowo funkcję, możesz szybko wybierać nazwy losowo.
| Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni. |
Po zainstalowaniu Kutools dla programu Excel, zrób tak:
1. Wybierz listę nazw, które chcesz wybrać losowo. Następnie kliknij Kutools > Zakres > Sortuj / wybierz zakres losowozobacz zrzut ekranu:
2, w Sortuj / wybierz zakres losowo okno dialogowe w obszarze Wybierz wprowadź numer, który chcesz wybrać nazwy do Liczba komórek do wybrania pole tekstowe, a następnie wybierz Wybierz losowe komórki Wybierz typ sekcja, patrz zrzut ekranu:
3. Następnie kliknij Ok przycisk, a twoja konkretna liczba nazw została wybrana zgodnie z potrzebami, patrz zrzut ekranu:
Kliknij, aby pobrać Kutools dla programu Excel i bezpłatną wersję próbną teraz!
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!
