Перейти до основного матеріалу

Як додати рядки тексту до декількох комірок у Excel?

Якщо нам потрібно додати якийсь конкретний текст або рядки тексту в декілька комірок, це буде трудомістким та трудомістким процесом копіювання цього тексту та вставки в кожну комірку по одному. Наступні методи можуть допомогти нам зручно та швидко додати конкретний текст у кілька комірок.

стрілка синя права міхур Додайте конкретний текст до декількох комірок у Excel за допомогою VBA

Використання VBA може полегшити нам роботу та додати конкретний текст у декілька комірок без копіювання та вставки.

Крок 1: Виділіть клітинки, в які ви будете додавати конкретний текст.

Крок 2: утримуйте клавішу ALT + F11 клавіш, і відкриється вікно Microsoft Visual Basic for Applications.

Крок 3: клацніть Insert >> Модуліта вставте наступний макрос у вікно модуля.

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

Для кожного c у вибраному
c. Активувати
ActiveCell.FormulaR1C1 = "тест -" & ActiveCell.Formula
Наступний c

End Sub

Крок 4: Натисніть кнопку F5 ключ для запуску цього макросу.

примітки: Цей макрос може додавати лише файл текст - в передній частині кожного тексту комірки. Якщо ви хочете додати інший текст або рядки, замініть текст - з конкретним текстом, який потрібно додати.

стрілка синя права міхур Додайте певний текст до кількох клітинок у Excel за допомогою Kutools для Excel

Для звичайних користувачів Microsoft Excel ми можемо не знати VBA. По черзі, Kutools для ExcelІнструмент "Додати текст" може допомогти нам швидко і легко додати певний текст або рядки в декілька комірок.

Kutools для Excel: з більш ніж 300 зручними надбудовами Excel, спробуйте безкоштовно без обмежень протягом 30 днів. Отримати зараз

Крок 1: Виділіть клітинки, в які ви додасте конкретний текст.

Крок 2: натисніть кнопку Кутулс > Текстові інструменти > Додати текст…. Дивіться знімок екрана:

Крок 3: у додати текст діалогове вікно, введіть конкретний текст та символи в розділі Текст.

Крок 4: перевірте позицію, де ви додасте конкретний текст в становище розділ. (Примітка: якщо ви хочете вставити текст у визначене місце, перевірте Вказувати і вкажіть позицію.) Дивіться знімок екрана:

Крок 5: клацніть OK or Застосовувати.

Команда додати текст інструмент Kutools для Excel дозволяє нам додавати будь-який конкретний текст і символи до або після оригінального тексту клітинки. Більше того, ми можемо додавати певний текст між оригінальними текстами клітинок. Незалежно від того, які налаштування ви встановили, ви можете попередньо переглянути зміни клітинок у розділі «Попередній перегляд».

Пов'язані статті:

Найкращі інструменти продуктивності офісу

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

Покращуйте свої навички 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