Как объединить текст из нескольких ячеек в одно поле ввода в 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. Выделите ячейки, текст из которых нужно объединить в поле ввода, и нажмите кнопку команды. После этого содержимое всех выделенных ячеек сразу же объединится в поле ввода, как показано на снимке экрана ниже.
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Связанные статьи:
- Как включить автоматическое выделение всего текста в поле ввода при его выборе в Excel?
- Как включить автозаполнение для поля ввода при наборе текста в Excel?
- Как очистить содержимое поля ввода при клике на него в Excel?
- Как отключить редактирование в поле ввода, чтобы пользователь не мог вводить данные в Excel?
- К ак отформатировать поле ввода как процент в Excel?
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек