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

or

Как объединить значения ячеек, пока не найдет пустую ячейку в столбце?

doc конкатенировать до пустого 1

Например, у меня есть список значений, которые включают некоторые пустые ячейки, и теперь я хочу объединить каждый набор данных между пробелами в ячейку и перечислить объединенные значения в другом столбце, как показано на следующем скриншоте. Как я могу конкатенировать ячейки, пока не найду пустую ячейку в столбце?

Конкатенировать значения ячейки до тех пор, пока не найдет пустую ячейку в столбце с кодом VBA

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


Преобразовать один столбец / строку в диапазон пустыми ячейками:

Kutools for Excel's Диапазон преобразования утилита может помочь вам преобразовать одну строку или столбец в диапазон ячеек и наоборот.

doc конкатенировать до пустого 9

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


arrow синий правый пузырь Конкатенировать значения ячейки до тех пор, пока не найдет пустую ячейку в столбце с кодом VBA


Нет прямого способа для вас конкатенировать набор ячеек между пробелами, но вы можете применить следующий код VBA, чтобы справиться с этим. Пожалуйста, сделайте следующее:

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

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

Код VBA: объединить значения ячейки, пока не найдет пустую ячейку

Sub Concatenatecells()
'updateby Extendoffice 20160513
    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 selecte 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 Ecel"
        Exit Sub
    End If
    Set xSaveToRg = Application.InputBox("Please selecte 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 чтобы запустить этот код, и появится окно подсказки, чтобы напомнить вам, выберите диапазон данных, который вы хотите объединить, см. снимок экрана:

doc конкатенировать до пустого 10

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

doc конкатенировать до пустого 11

5. Затем нажмите OK и данные списка столбцов объединены между пробелами, см. снимок экрана:

doc конкатенировать до пустого 1


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

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

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

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

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

doc конкатенировать до пустого 2

2. В Диапазон преобразования диалоговое окно, проверьте Одиночный столбец вариант под Тип преобразования, А затем выберите Пустая ячейка ограничивает записи под Строки на запись, см. снимок экрана:

doc конкатенировать до пустого 3

3. Затем нажмите Ok, и появится окно подсказки, чтобы напомнить вам выбрать ячейку для вывода результата, см. снимок экрана:

doc конкатенировать до пустого 4

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

doc конкатенировать до пустого 5

5, Преобразованные данные находятся в нескольких столбцах, поэтому вам необходимо объединить их в один столбец, выберите диапазон данных и нажмите Kutools > Сочетать, см. снимок экрана:

doc конкатенировать до пустого 6

6. В Объединить столбцы или строки в диалоговом окне выполните следующие действия:

(1.) Выберите Объединить столбцы из файла Объединение выбранных ячеек в соответствии со следующими параметрами;

(2.) Затем укажите разделитель, который вы хотите отделить конкатенированные значения;

(3.) Выберите, как вы хотите иметь дело с объединенными ячейками. Вы можете сохранить или удалить исходные данные, а также объединить объединенные ячейки. Смотрите скриншот:

doc конкатенировать до пустого 7

7, Закончив настройку, нажмите Ok or применять кнопки, ячейки были объединены в один столбец с определенным разделителем, см. снимок экрана:

doc конкатенировать до пустого 8

Скачать и бесплатно пробную версию Kutools для Excel сейчас!


  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905
  • Включить редактирование и чтение с вкладками в 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.
    Crystal · 2 years ago
    How would you do it if you want to base it off another column? I have similar data, but column B is a number then notes(like your fruit) in column I, I want to combine all notes in column I until there is another cell in Column B that has only number. Sometimes there are letter under B or the cells are blank which is why it needs to combine until a number.

    Then finally can it output back to where it started the combine? IE all notes for first number are in column j, but if the next number is 5 rows below that is fine, it just goes in column j but same row number as the number is found?