Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как сделать удачные имена ничьей в Excel?

Иногда в вашей повседневной работе вам нужно выбирать случайных сотрудников из длинного списка имен в качестве счастливых имен. В Excel, как вы могли бы случайно выбрать некоторые имена для создания счастливой ничьей? В этой статье я расскажу о некоторых полезных методах работы с этой работой в Excel.

Извлечь случайные имена для создания счастливой ничьей с помощью формулы

Извлечение случайных имен для создания удачной ничьей с кодом VBA

Выберите случайные имена для создания удачной ничьей с помощью Kutools для Excel


Выберите случайные имена для создания счастливых имен в Excel

Чтобы случайно выбрать некоторых сотрудников из имен длинных списков в качестве счастливых имен, вы можете применить Kutools for Excel, С его Сортировка в случайном порядке функцию, вы можете быстро выбрать определенное количество имен в случайном порядке по мере необходимости.

doc lucky names 9

Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!


Извлечь случайные имена для создания счастливой ничьей с помощью формулы

Например, я хочу извлечь любые имена 3 из списка имен, следующая длинная формула может вам помочь, выполните следующие действия:

Введите эту формулу в пустую ячейку, где вы хотите поместить результат: =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)))) , а затем перетащите дескриптор заполнения вниз в ячейки, как вам нужно, см. снимок экрана:

doc lucky names 1

Заметки:

1. В приведенной выше формуле: A2: A16 это список имен, которые вы хотите извлечь из случайного числа, B2 это необходимое число, которое вы хотите извлечь имена, C2 является ячейкой, где вводится формула, и C1 является ячейкой над ячейкой формулы.

2. Вы можете нажать F9 чтобы случайно получить другую группу новых имен.


Извлечение случайных имен для создания удачной ничьей с кодом VBA

Здесь код VBA также может помочь вам выполнить эту задачу, пожалуйста, сделайте следующее:

1, Удерживайте Alt + F11 , чтобы открыть Microsoft Visual Basic для приложений окна.

2. Щелчок Вставить > модуль, и вставьте следующий код в модуль Окно.

Код VBA: Извлечение случайных имен из списка:

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

Внимание: В приведенном выше коде, B2 ячейка содержит количество имен, которые вы хотите извлечь.

3, Вставив код, нажмите Инструменты > дело в открытом Microsoft Visual Basic для приложений окна, а затем, в выпадающем Ссылки - VBAProject диалоговое окно, проверьте Время выполнения Microsoft Scripting вариант в Доступные ссылки список, см. снимок экрана:

doc lucky names 2

4, Затем нажмите OK для выхода из диалогового окна, затем нажмите F5 чтобы запустить этот код, и появится окно подсказки, чтобы напомнить вам, как выбрать список данных, из которого вы хотите извлечь имена, см. снимок экрана:

doc lucky names 3

5. Щелчок OK и появится другое окно подсказки, выберите ячейку, куда вы хотите поместить результат, см. снимок экрана:

doc lucky names 4

6, Затем нажмите OK, и необходимое количество имен было создано случайно сразу, см. снимок экрана:

doc lucky names 5


Выберите случайные имена для создания удачной ничьей с помощью Kutools для Excel

Может быть, выше двух методов для большинства из нас трудно, здесь, если у вас есть Kutools for Excel, С его Сортировка в случайном порядке функцию, вы можете быстро выбирать имена случайным образом.

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни.

После установки Kutools for Excel, сделайте следующее:

1. Выберите список имен, который вы хотите выбрать произвольно. Затем нажмите Kutools > Диапазон > Сортировка в случайном порядке, см. снимок экрана:

doc lucky names 6

2. В Сортировка в случайном порядке диалогового окна под Выбрать , введите номер, который вы хотите выбрать имена в Количество ячеек для выбора текстовое поле, а затем выберите Выбрать случайные ячейки , который относится к Выберите тип раздел, см. снимок экрана:

doc lucky names 7

3, Затем нажмите Ok и ваше конкретное количество имен было выбрано по мере необходимости, см. снимок экрана:

doc lucky names 8

Нажмите, чтобы загрузить Kutools for Excel и бесплатную пробную версию.


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

Вкладка «Office» предоставляет интерфейс с вкладками для Office и упрощает работу

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ravikumar Mangipudi · 10 months ago
    Error:
    #NUM!



    Formula:
    =IF(ROWS(C$2:C2)>B$2,"",INDEX(A$2:A$1500,AGGREGATE(15,6,((ROW(A$2:A$1500)-ROW(A$2)+1)/ISNA(MATCH(A$2:A$1500,C$1:C1,0))),RANDBETWEEN(1,ROWS(A$2:A$1500)-COUNTA(C$1:C1)+1))))
    • To post as a guest, your comment is unpublished.
      skyyang · 10 months ago
      Hello, Mangipudi,
      This formula works well in my Excel workbook, which Excel version do you use?
      You can also give your problem as a screenshot here.