Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս ավելացնել տեքստի տողեր Excel- ի բազմաթիվ բջիջներին:

Եթե ​​մենք պետք է մի քանի բջիջներում ավելացնենք տեքստի որոշակի տեքստ կամ տողեր, դա տևական և ժամանակատար կլինի այս տեքստը պատճենելու և յուրաքանչյուր բջիջը մեկ առ մեկ տեղադրելու միջոցով: Հետևյալ մեթոդները կարող են օգնել մեզ հարմար և արագորեն որոշակի տեքստ ավելացնել բազմաթիվ բջիջներում:

նետ կապույտ աջ պղպջակ VBA- ի միջոցով Excel- ի բազմաթիվ բջիջներին ավելացրեք հատուկ տեքստ

VBA- ի օգտագործումը կարող է հեշտացնել մեր աշխատանքը և ավելացնել հատուկ տեքստ բազմաթիվ բջիջներում ՝ առանց պատճենելու և տեղադրելու:

Քայլ 1: Ընտրեք այն բջիջները, որոնցում կավելացնեք հատուկ տեքստը:

Քայլ 2: Անջատեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic կիրառական ծրագրերի պատուհանը:

Քայլ 3: Սեղմեք Տեղադրել >> Մոդուլներ, և տեղադրեք հետևյալ մակրոը Մոդուլի պատուհանում:

Sub Add2Formula ()
'Ավելացրեք տեքստ

Ընտրության յուրաքանչյուր գ-ի համար
գ. Ակտիվացնել
ActiveCell.FormulaR1C1 = "թեստ -" & ActiveCell.Formula
Հաջորդ գ

Վերջ Sub

Քայլ 4. Սեղմեք կոճակը F5 այս մակրո գործարկման բանալին:

ՆշումԱյս մակրոը կարող է ավելացնել միայն տեքստ - յուրաքանչյուր բջիջի տեքստի առջևում: Եթե ​​ցանկանում եք ավելացնել այլ տեքստ կամ տողեր, խնդրում ենք փոխարինել տեքստ - այն հատուկ տեքստի հետ, որը ցանկանում եք ավելացնել:

նետ կապույտ աջ պղպջակ Excel- ի Kutools- ի միջոցով Excel- ի բազմաթիվ բջիջներին ավելացրեք հատուկ տեքստ

Microsoft Excel- ի սովորական օգտագործողների համար մենք կարող է ծանոթ չլինենք VBA- ին: Այլընտրանքորեն Excel- ի համար նախատեսված գործիքներAdd Text գործիքը կարող է օգնել մեզ արագ և հեշտությամբ ավելացնել որոշակի տեքստ կամ տողեր բազմաթիվ բջիջներում:

Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Get it Now

Քայլ 1. Ընտրեք այն բջիջները, որոնցում կավելացնեք հատուկ տեքստը:

Քայլ 2: Սեղմեք Կուտոլս > Տեքստային գործիքներ > Ավելացնել տեքստ, Տեսեք,

Քայլ 3. Դեպի Ավելացրեք տեքստ երկխոսության տուփ, մուտքագրեք հատուկ տեքստը և նիշերը Տեքստ բաժնում:

Քայլ 4. Ստուգեք այն դիրքը, որտեղ դուք կավելացնեք հատուկ տեքստը այստեղ Դիրք Բաժին. (Նշում. Եթե ցանկանում եք տեքստը տեղադրել որոշակի դիրքում, խնդրում ենք ստուգել Մատնանշել և նշեք դիրքը:) Տեսեք,

Քայլ 5: Սեղմեք OK or Դիմել.

The Ավելացրեք տեքստ Excel- ի համար Kutools- ի գործիքը աջակցում է մեզ ավելացնել ցանկացած հատուկ տեքստ և նիշ նախնական կամ բջջային տեքստից հետո: Ավելին, մենք կարող ենք բնօրինակ բջջային տեքստերի միջև ավելացնել հատուկ տեքստ: Անկախ այն բանից, թե որ պարամետրերն եք դնում, կարող եք նախադիտել բջիջների փոփոխությունները «Նախադիտում» բաժնում:

Առնչվող Հոդված

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup  |   Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar   |  Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները   |  Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու:  12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, 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