Как создать список на основе диапазона данных в Excel?
Вам нередко может понадобиться создать список на основе диапазона данных — например, данных о 24 солнечных терминах, как показано ниже. Конечно, вы всегда можете вручную скопировать и вставить их в список, но это быстро становится утомительным, если диапазон содержит множество столбцов. На самом деле, в Microsoft Excel существует несколько простых приёмов для быстрого преобразования ограниченного диапазона в список.
Создание списка из диапазона с помощью VBA
Создание списка из диапазона с помощью Kutools для Excel
Создание списка из диапазона с помощью VBA
В Excel вы также можете воспользоваться кодом VBA для быстрого импорта списка или диапазона.
1. Удерживайте кнопку ALT и нажмите F11 на клавиатуре, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Нажмите Вставка > Модуль, а затем скопируйте код VBA в модуль.
VBA: создание списка из диапазона
Sub UniqueList()
'Updateby20140304
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range:", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("OutPut to (single cell):", xTitleId, Type:=8)
For i = 1 To InputRng.Rows.Count
For j = 1 To InputRng.Columns.Count
OutRng.Value = InputRng.Cells(i, j).Value
Set OutRng = OutRng.Offset(1, 0)
Next
Next
End Sub
3. Нажмите кнопку Выполнить или клавишу F5, чтобы запустить код VBA. После этого появится диалоговое окно — выберите диапазон данных, из которого нужно создать список. См. снимок экрана:
5. Нажмите кнопку OK, в появившемся диалоговом окне выберите ячейку для вывода списка и снова нажмите OK. См. снимок экрана:
Теперь диапазон данных преобразован в список и помещён в выбранную ячейку.
Создание списка из диапазона с помощью Kutools для Excel
Удобный инструмент — Kutools для Excel's Преобразовать диапазон также позволяет быстро и легко создать список из диапазона данных.
Kutools для Excel включает более 300 удобных инструментов для Excel. Бесплатная пробная версия без ограничений на 30 дней. Получить сейчас
1. Выделите диапазон данных, который хотите преобразовать в список, и нажмите Kutools > Диапазон > Преобразовать диапазон. См. снимок экрана:
2. В появившемся диалоговом окне Преобразовать диапазон установите флажок Диапазон в одну колонку и нажмите OK. Затем откроется ещё одно диалоговое окно — выберите пустую ячейку для вывода списка и нажмите OK. См. снимок экрана:
 |
 |
 |
3. Теперь список успешно создан.
Щёлкните здесь, чтобы узнать больше о функции «Преобразовать диапазон».
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек