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

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

Автор: Кели Последна промяна: 2013-06-03

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

стрелка син десен балон Добавете специфичен текст към множество клетки в Excel с VBA

Използването на VBA може да улесни работата ни и да добави конкретен текст в множество клетки без копиране и поставяне.

Стъпка 1: Изберете клетките, в които ще добавите конкретния текст.

Стъпка 2: Задръжте надолу ALT + F11 клавиши и отваря прозореца на Microsoft Visual Basic за приложения.

Стъпка 3: Кликнете върху Поставете >> Модулии поставете следния макрос в прозореца на модула.

Sub Add2Formula()
' Добави текст

За всеки c В селекцията
c.Activate
ActiveCell.FormulaR1C1 = "тест - " & ActiveCell.Formula
Следваща c

End Sub

Стъпка 4: Натиснете бутона F5 ключ за стартиране на този макрос.

Забележка: Този макрос може да добавя само текст - в предната част на текста на всяка клетка. Ако искате да добавите друг текст или низове, моля, заменете текст - с конкретния текст, който искате да добавите.

стрелка син десен балон Добавете специфичен текст към множество клетки в Excel с Kutools за Excel

За обикновените потребители на Microsoft Excel може да не сме запознати с VBA. Като алтернатива, Kutools за ExcelИнструментът за добавяне на текст може да ни помогне да добавим конкретен текст или низове в множество клетки бързо и лесно.

Kutools за Excel: с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. Махни го сега

Стъпка 1: Изберете клетките, в които ще добавите конкретния текст.

Стъпка 2: Кликнете върху Kutools > Инструменти за текстове > Добави текст…. Вижте екранна снимка:

Стъпка 3: В добавяне на текст диалогов прозорец, въведете конкретния текст и знаци в секцията Текст.

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

Стъпка 5: Кликнете върху OK or Добавете Обява.

- добавяне на текст инструмент на 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 (4)
No ratings yet. Be the first to rate!
Anish
Anish
This comment was minimized by the moderator on the site
how to add multiple cells and compare with one cell ,such that the one cell compared to value is dynamically changing. For example sum of column and you are adding values in the column then sum is dynamically changing.

Thank you in Advance.
Reply
0
0
Peter
Peter
This comment was minimized by the moderator on the site
If i need to add values to text like: "text" value E12 "text" value E12 "text" valueE12 is it possible? need make SEO
Reply
0
0
cpk.adm@gmail.com
This comment was minimized by the moderator on the site
i want to add one character in before and after . please help .. mail me
Reply
Report
0
0
cpk.adm@gmail.com
This comment was minimized by the moderator on the site
Private Sub CommandButton1_Click()
On Error GoTo errorhandler:
Dim objRange1 As Range
Dim wk As Workbook

'Set up the ranges


Set objRange1 = Range("A22:A51")


objRange1.TextToColumns , Destination:=Sheet1.Range("Z1"), _
DataType:=xlDelimited, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=False, _
Other:=True, _
OtherChar:="|"
Dim rn As String
Dim rn1 As String
Dim rn2 As String
Dim rep As String
Dim res As String
rep = "Do you want to copy Values?"
res = MsgBox(rep, vbQuestion + vbYesNo, "???")
If res = vbYes Then

rn = InputBox(" Enter Range to Copy Circuit Id")
Sheets("Sheet1").Range("AH1:AH10").Cut Destination:=Sheets("Sheet2").Range(rn)
MsgBox (" Circuit Id has Successfully Pasted")
rn1 = InputBox(" Enter Range to copy Order Reference")
Sheets("Sheet1").Range("AK1:AK10").Cut Destination:=Sheets("Sheet2").Range(rn1)
MsgBox (" Order Reference has Successfully Pasted")
rn2 = InputBox(" Enter Range to copy Inventory Name")
Sheets("Sheet1").Range("AG1:AG10").Cut Destination:=Sheets("Sheet2").Range(rn2)
MsgBox (" Inventory has Successfully Pasted")
Sheets("sheet1").Range("Z1:AM10").ClearContents
Sheets("sheet2").Activate
Else
MsgBox (" Thank You")
End If
errorhandler:
MsgBox ("you have clicked cancelled bitton")
Sheet1.Activate
End Sub


Private Sub CommandButton2_Click()
Sheet1.Range("A10:A32").ClearContents
End Sub







it is working , but i have to add text in one cell . please help me
Reply
Report
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations