Как добавить текст в середину выделенных ячеек в Excel?
Добавление текста в середину выделенных ячеек в Excel — удобный приём для эффективной организации и наглядного представления данных. В этом руководстве приведены чёткие пошаговые инструкции, как вставить новый текст внутрь существующего содержимого ячеек с помощью встроенных функций и возможностей Excel.
Добавить текст в середину выделенных Формула
В этом разделе мы предоставим вам формулу для добавления текста в середину выделенных ячеек. Выполните следующие действия.
1. Данный метод следует выполнять с использованием вспомогательного столбца. Выделите пустую ячейку рядом с исходными данными — в данном примере это ячейка B2.
2. Скопируйте и вставьте формулу =LEFT(A2,1) & «D» & MID(A2,2,100) в строку формул, затем нажмите клавишу Enter. См. снимок экрана:
Примечания:
- 1). В формуле число 1 означает, что текст будет добавлен сразу после первого символа в ячейке.
- 2). Числа 2 и 100 означают, что символы со второго по сотый из исходной ячейки будут добавлены после вставляемого текста.
- 3). Если вы хотите добавить текст после второго символа, замените число 1 на 2, а 2 — на 3 в формуле.
- 4). Символ «D» — это текст, который вы введёте в ячейку. При необходимости измените его под свои задачи.
3. Выделите ячейку B2 и перетащите маркер заполнения вниз до последней ячейки, к которой нужно применить эту формулу. Текст автоматически добавится в середину всех ячеек списка.
Советы: Помимо приведённой выше формулы, вы также можете воспользоваться этой: =REPLACE(A2,2,0,«D») (число 2 указывает позицию, куда нужно вставить текст, а буква D — сам текст для добавления; вы можете изменить их по своему усмотрению), а затем нажмите клавишу Enter, чтобы получить результат.
Добавить текст в середину выделенных ячеек с помощью Kutools для Excel
Следует признать, что два описанных выше метода не слишком удобны. Ниже я покажу вам утилиту Добавить текст из набора Kutools для Excel, с помощью которой можно легко указать позицию в середине строки и одновременно добавить нужный текст в указанную позицию для всего списка.
1. Выделите диапазон, в середину ячеек которого вы хотите добавить текст, затем нажмите Kutools > Текст > Добавить текст. См. снимок экрана:
2. В диалоговом окне Добавить текст введите текст, который нужно добавить в ячейки, в поле Текст. Укажите позицию добавления текста, установив флажок Указать (в данном примере указано число 1), затем нажмите кнопку ОК (результат можно сразу просмотреть в правом поле).
Примечание: Чтобы добавить текст сразу в несколько позиций выделенной ячейки, укажите нужные позиции через запятую в поле Указать. См. снимок экрана:
Теперь указанный текст добавляется сразу после первой буквы каждого элемента в выделенном списке.
Если вы хотите воспользоваться бесплатной пробной версией (30 дней) этой утилиты, нажмите, чтобы скачать её, а затем выполните операцию в соответствии с приведёнными выше шагами.
Добавить текст в середину выделенных ячеек с помощью кода VBA
Кроме того, с помощью кода VBA вы можете добавить текст в середину выделенных ячеек.
1. Нажмите комбинацию клавиш Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Щёлкните Вставка > Модуль, затем скопируйте и вставьте приведённый ниже код VBA в редактор кода.
Код VBA: Добавить текст в список данных после первого символа
Sub AddString()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
For Each Rng In WorkRng
Rng.Value = VBA.Left(Rng.Value, 1) & "D" & VBA.Mid(Rng.Value, 2, VBA.Len(Rng.Value) - 1)
Next
End Sub3. Нажмите клавишу F5, чтобы выполнить код. В появившемся диалоговом окне Kutools for Excel выберите диапазон, в который нужно добавить текст, и нажмите кнопку ОК.
Теперь указанный текст добавляется сразу после первого символа в выделенных ячейках.
Примечание: В приведённом выше коде выполняется вставка заданного значения после первого символа в ячейке. Чтобы добавить текст после второго символа, замените числа 1 и 2 на 2 и 3 в строке кода VBA.Left(Rng.Value, 1) & «D» & VBA.Mid(Rng.Value, 2, VBA.Len(Rng.Value) - 1). Буква D — это новый текст, который вы хотите вставить.
В этом руководстве описаны три метода достижения цели: с использованием формул Excel, надстройки Kutools для Excel и кода VBA. Каждый из них предлагает уникальный подход к вставке нового текста внутрь существующего содержимого ячеек и подходит пользователям с разным уровнем владения 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек