Перейти к основному содержанию

Как объединить тексты из нескольких ячеек в текстовое поле в Excel?

Вам может быть легко объединить тексты из нескольких ячеек в новую ячейку с помощью формулы. Но знаете ли вы, как объединить несколько значений ячеек в текстовое поле (элемент управления ActiveX)? Собственно, метод, описанный в этой статье, может помочь вам в этом.

Объедините тексты из нескольких ячеек в текстовое поле с кодом VBA


Объедините тексты из нескольких ячеек в текстовое поле с кодом VBA

Приведенный ниже метод может помочь вам объединить тексты из нескольких ячеек в текстовое поле в Excel.

1. На листе, который вы хотите объединить несколько ячеек, вставьте текстовое поле, щелкнув Застройщик > Вставить > Текстовое поле (элемент управления ActiveX). Смотрите скриншот:

2. Затем нажмите Застройщик > Вставить > Командная кнопка (элемент управления ActiveX) чтобы вставить командную кнопку в рабочий лист.

3. Щелкните правой кнопкой мыши вставленную кнопку команды, затем выберите Просмотреть код из контекстного меню. Смотрите скриншот:

4. в Microsoft Visual Basic для приложений окна, замените исходный код на приведенный ниже код VBA.

Код VBA: объединение текстов из нескольких ячеек в текстовое поле

Private Sub CommandButton1_Click()
    Dim xRg As Range
    Dim xCell As Range
    Dim xStr As String
    On Error Resume Next
    Set xRg = Application.Selection
    If xRg Is Nothing Then Exit Sub
    With Me.TextBox1
        .Text = vbNullString
        .MultiLine = True
        .WordWrap = True
        For Each xCell In xRg
            xStr = xCell.Value
            .Text = Me.TextBox1 & xStr & Chr(10)
        Next
    End With
End Sub

Внимание: CommandButton1 - это имя вставленной командной кнопки. Пожалуйста, измените его в зависимости от ваших потребностей.

5. Выключите режим дизайна, нажав Застройщик > Режим проектирования.

6. Выберите ячейки, необходимые для объединения текстов в текстовое поле, затем нажмите кнопку Command. Затем содержимое всех выбранных ячеек сразу объединяется в текстовое поле, как показано ниже.


Статьи по теме:

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

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

Описание


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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
hola Como el boton puede tomarme las celdas visibles, ya que a veces oculto celdas y me las toma igual pero no quiero
This comment was minimized by the moderator on the site
Muy bueno, Y si le quiero poner ; para separar los textos ¿cómo lo hago?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations