Прескочи на основното съдържание

Как да добавя текст в средата на избраните клетки в Excel?

Автор: Силувия Последна промяна: 2020-04-27

Да предположим, че имате списък с данни, съставен от начална буква G и други числа, и сега искате да добавите още една буква D след първата буква G към целия списък. Вижте показаната екранна снимка по-долу.

Как можете да направите, за да постигнете това? Добавянето на буквата към клетките една по една изглежда губи време по време на работа. В тази статия ще ви покажем как да добавите текст в средата на избрани клетки в Excel с ефективни методи.

Добавете текст в средата на избраните клетки с формула
Добавете текст в средата на избраните клетки с VBA код
Добавете текст в средата на избраните клетки с Kutools за Excel


Добавете текст в средата на избраните клетки с формула

В този раздел ще ви предоставим формулата за добавяне на текст в средата на избраните клетки. Моля, направете следното.

1. Този метод трябва да се направи с помощна колона. Изберете празната клетка, която е в съседство с оригиналните данни, тук избирам клетка B2.

2. Копиране и поставяне на формула =ЛЯВО(A2,1) & "D" & MID(A2,2,100) в лентата с формули и след това натиснете Въведете ключ. Вижте екранна снимка:

бележки:

  • 1). Във формулата номер 1 означава, че текстът ще бъде добавен след първия знак на клетката.
  • 2). Числото 2 и 100 показват, че знаците от втора до стотна от оригиналната клетка ще бъдат добавени след новия вмъкнат текст.
  • 3). Ако искате да добавите текст след втория знак, моля, променете числото 1 на 2 и 2 на 3 във формулата.
  • 4). И символът "D" е текстът, който ще добавите към клетката. Моля, променете го според вашите нужди.

3. Изберете клетка B2, плъзнете манипулатора за попълване надолу до клетката, която искате да покриете с тази формула. Можете да видите, че текстът е добавен в средата на клетките в целия списък.

Съвети: Освен горната формула, можете да приложите и тази формула =ЗАМЕНЯНЕ(A2,2,0;XNUMX;XNUMX;"D"), (числото 2 показва мястото, където искате да вмъкнете текста, а буквата D се отнася до текста, който трябва да добавите, можете да ги промените според вашите нужди), след което натиснете клавиша Enter, за да получите резултата.


Добавете текст в началото или края на всички избрани клетки в Excel:

Kutools за Excel добавяне на текст помощната програма може бързо да добави определен текст в началото или края на клетките в селекция в Excel.
Изтеглете пълната 30-дневна безплатна пътека на Kutools за Excel сега!


Добавете текст в средата на избраните клетки с VBA код

Освен това можете да добавите текст в средата на избраните клетки с VBA код.

1. Моля, натиснете Друг + 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 Sub

3. Натиснете F5 клавиш за изпълнение на кода и в изскачащия прозорец Kutools за Excel изберете диапазона, към който искате да добавите текст, и накрая щракнете върху OK бутон.

Сега посоченият текст се добавя след първия знак на избраните клетки.

Забележка: В горния код ще вмъкнете конкретна стойност след първия знак в клетката, можете да промените числото 1 и 2 на числото 2 и 3, ако добавите текста след втория знак в този скрипт VBA.Left(Rng.Value, 1) & "D" & VBA.Mid(Rng.Value, 2, VBA.Len(Rng.Value) - 1), а буквата D е новият текст, който искате да вмъкнете.


Добавете текст в средата на избраните клетки с Kutools за Excel

Трябва да признаем, че горните два метода са неудобни за нас. Тук ще ви покажа добавяне на текст полезност на Kutools за Excel, с тази помощна програма можете лесно да посочите средната позиция на списъка и след това да добавите определен текст към тази позиция на целия списък едновременно.

Преди да кандидатствате Kutools за Excel, Моля те първо го изтеглете и инсталирайте.

1. Изберете списъка, който искате да добавите текст в средата на клетките, и след това щракнете Kutools > Текст > добавяне на текст. Вижте екранна снимка:

2. В добавяне на текст диалогов прозорец, въведете текста, който искате да добавите към клетките в Текст поле, посочете позицията, където искате да добавите текста, като поставите отметка в Посочете опция (тук въвеждам номер 1), след което щракнете върху OK бутон. (Можете незабавно да визуализирате резултата от добавянето в дясното поле)

Забележка: За да добавите текст в няколко позиции на избрана клетка наведнъж, можете да посочите позициите със запетая, разделяща се в Посочете кутия. Вижте екранна снимка:

Сега посоченият текст се добавя след първата буква в избрания списък.

  Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.


Добавете текст в средата на избраните клетки с Kutools за Excel


Свързана статия:.

Най-добрите инструменти за продуктивност в офиса

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

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Boa tarde, tudo bem ?

Eu testei as duas fórmulas e não funcionaram. Inclusive testei também no mesmo cenário descrito no texto e também não funcionou. Poderia verificar se falta algo na fórmula do excel ?
This comment was minimized by the moderator on the site
Tive o mesmo problema, mas segui pela resposta que enviaram aqui, a formula para o excel em português seria =ESQUERDA(A2;1) & "D" & EXT.TEXTO(A2;2;100)

A parte da fórmula que dá o erro seria o "MID" que precisa ser substituído por "EXT.TEXTO"
This comment was minimized by the moderator on the site
Hi Matheus C.,
If you are using the Excel version in a different language than English, please convert the formula from English to the language you are currently using.
You can translate the formula in this page: https://de.excel-translator.de/translator/
This comment was minimized by the moderator on the site
Hi Vick,
The formula provided in the post can only be applied in English system environment Excel. If you have Excel in a different language than English, please convert the formula from English to the language you are currently using.
It seems that you are using the Excel in Portuguese language system. You need to change the commas in the formula to semicolons.
You can translate the formula in this page: https://de.excel-translator.de/translator/
This comment was minimized by the moderator on the site
TRIMAKASIH KAK, SANGAT MEMBANTUUUU
This comment was minimized by the moderator on the site
This seems complicated. For the originally stated problem why not just do a search for G and replace all with GD?
This comment was minimized by the moderator on the site
Because you might want to insert a specific character at a certain index of the string. What if they weren't all G's? This was just to provide an example of how it works.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations