Как объединить значения ячеек в столбце до первой пустой ячейки в Excel?
Например, у меня есть список значений, включающий некоторые пустые ячейки, и я хочу объединить каждый набор данных между пустыми ячейками в одну ячейку и вывести объединённые значения в другой столбец, как показано на следующем снимке экрана. Как можно объединять ячейки до тех пор, пока не встретится пустая ячейка в столбце?
Объединение значений ячеек до обнаружения пустой ячейки в столбце с помощью кода VBA
Объединение значений ячеек до обнаружения пустой ячейки в столбце с помощью Kutools для Excel
Объединение значений ячеек до обнаружения пустой ячейки в столбце с помощью кода VBA
Прямого способа объединить диапазон ячеек, пропуская пустые, не существует, но вы можете решить эту задачу с помощью следующего кода VBA. Выполните указанные действия:
1. Удерживая нажатыми клавиши ALT + F11, откройте окно Microsoft Visual Basic for Applications.
2. Нажмите Вставка > Модуль и вставьте приведённый ниже код в окно Модуль.
Код VBA: объединение значений ячеек до обнаружения пустой ячейки
Sub Concatenatecells()
'updateby Extendoffice
Dim xRg As Range
Dim xSaveToRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xTStr As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "the selected range is more than one column", vbInformation, "Kutools for Excel"
Exit Sub
End If
Set xSaveToRg = Application.InputBox("Please select output cell:", "Kutools for Excel", , , , , , 8)
If xSaveToRg Is Nothing Then Exit Sub
Set xSaveToRg = xSaveToRg.Cells(1)
Application.ScreenUpdating = False
For Each xCell In xRg
If xCell <> "" Then
xTStr = xTStr & xCell & " "
Else
xSaveToRg.Value = xTStr
Set xSaveToRg = xSaveToRg.Offset(1)
xTStr = ""
End If
Next
If xTStr <> "" Then xSaveToRg.Value = Left(xTStr, Len(xTStr) - 1)
Application.ScreenUpdating = True
End Sub
3. Затем нажмите клавишу F5, чтобы запустить этот код. Появится диалоговое окно с запросом выбрать диапазон данных, значения которого требуется объединить (см. снимок экрана):
4. Затем нажмите кнопку OK — после этого появится ещё одно диалоговое окно с запросом указать ячейку для вывода результата объединения (см. снимок экрана):
5. После этого нажмите кнопку OK, и данные из столбцов будут объединены с заполнением пустых ячеек — см. снимок экрана:
Объединение значений ячеек до обнаружения пустой ячейки в столбце с помощью Kutools для Excel
Если у вас установлен Kutools для Excel, вы можете использовать его функции Преобразовать диапазон и Объединить, чтобы выполнить эту задачу максимально быстро. Утилита Преобразовать диапазон поможет преобразовать один столбец в диапазон, а функция Объединить позволит объединить результат в один столбец.
После установки Kutools для Excelвыполните следующие действия:
1.Выделите ячейки, которые нужно объединить, и нажмите Kutools > Диапазон > Преобразовать диапазон. См. снимок экрана:
2. В диалоговом окне Преобразовать диапазон установите флажок напротив параметра Одна колонка в диапазон в разделе Тип преобразования и выберите значение Разделено пробелами в поле Строк на запись, см. снимок экрана:
3. Затем нажмите кнопку Ok. После этого появится диалоговое окно с запросом указать ячейку для вывода результата (см. снимок экрана):
4. Нажмите кнопку OK, и данные из одного столбца преобразуются в несколько строк и столбцов с учётом пустых ячеек (см. снимок экрана):
5. Преобразованные данные размещены в нескольких столбцах, поэтому их нужно объединить в один: выберите диапазон данных и нажмите Kutools > Объединить и разделить > Объединить строки/столбцы/ячейки и сохранить значения (см. снимок экрана):
6. В диалоговом окне Объединить столбцы или строки выполните следующие настройки:
(1.) Выберите параметр Объединить столбцыв поле Объединить выбранный диапазон следующим образом;
(2.) Затем укажите Разделитель, которым следует разделять объединённые значения;
(3.) Укажите, как обрабатывать объединённые ячейки: вы можете сохранить или удалить исходные данные, а также объединить эти ячейки. См. снимок экрана:
7. После завершения настройки нажмите кнопку Ok или Применить, и ячейки объединятся в один столбец с заданным разделителем (см. снимок экрана):
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек