Excel-ը ավելացնում է տեքստը և համարը բջիջի նշված դիրքում

Excel-ում բջիջներին տեքստեր կամ թվեր ավելացնելը շատ տարածված աշխատանք է: Օրինակ՝ անունների միջև տարածություն ավելացնելը, բջիջներին նախածանց կամ վերջածանց ավելացնելը, սոցիալական թվերին գծիկներ ավելացնելը: Այստեղ, այս ձեռնարկում, այն թվարկում է Excel-ում ավելացնելու գրեթե բոլոր սցենարները և տրամադրում է ձեզ համապատասխան մեթոդներ:

Այս ձեռնարկի նավարկությունները

1. Ավելացնել յուրաքանչյուր բջիջի սկզբին 1.1 Բջիջների սկզբում ավելացրեք բանաձևով 1.2 Բջիջների սկզբում ավելացնել Flash Fill-ով 1.3 Ավելացրեք բջիջների սկզբում՝ օգտագործելով VBA կոդը

2. Ավելացնել յուրաքանչյուր բջիջի վերջ 2.1 Բջիջների վերջում ավելացրեք բանաձևով 2.2 Բջիջների վերջում ավելացնել Flash Fill-ով 2.3 Ավելացրեք բջիջների վերջում՝ օգտագործելով VBA կոդը

3. Ավելացնել լարերի կեսին 3.1 Բանաձևով ավելացնել տողի n-րդ նիշը 3.2 Ավելացնել տողի n-րդ նիշը Flash Fill-ի միջոցով 3.3 Ավելացրեք տողի n-րդ նիշը՝ օգտագործելով VBA կոդը

4. Ավելացրեք տեքստ Kutools-ով Excel-ի համար (ավելացրեք նիշերը կոնկրետ դիրքում, ինչպես ձեզ անհրաժեշտ է) 4.1 Ավելացրեք տեքստ առաջին կամ վերջին նիշից հետո 4.2 Ավելացրեք տեքստ նշված դիրք(ներ)ում 4.3 «Ավելացնել տեքստ» ծրագրի ընդլայնում

5. Ավելացրեք տեքստ առաջին կոնկրետ տեքստից առաջ կամ հետո 5.1 Ավելացրեք տեքստ առաջին կոնկրետ տեքստից առաջ 5.2 Ավելացրեք տեքստ առաջին կոնկրետ տեքստից հետո

6. Յուրաքանչյուր բառից առաջ կամ հետո ավելացրեք նիշ(ներ): 6.1 Յուրաքանչյուր բառից առաջ կամ հետո ավելացրեք նիշ(ներ) ըստ բանաձևի 6.2 Յուրաքանչյուր բառից առաջ կամ հետո ավելացրեք նիշ(ներ)՝ Գտնել և փոխարինել 6.3 Յուրաքանչյուր բառից առաջ կամ հետո ավելացրեք նիշ(ներ) ըստ VBA կոդերի

7. Ավելացրեք տեքստ նիշերի միջև 7.1 Ավելացրեք տեքստ յուրաքանչյուր նիշի/նիշի միջև Օգտատիրոջ կողմից սահմանված գործառույթով 7.2 Բանաձևով յուրաքանչյուր թվի միջև տարածություն ավելացրեք

8. Յուրաքանչյուր բառի միջև ավելացրեք նիշ(ներ):

9. Տեքստերի և թվերի միջև նիշ ավելացնել 9.1 Տեքստերի և թվերի միջև նիշ ավելացնել բանաձևով 9.2 Ավելացնել նիշ տեքստերի և թվերի միջև Flash Fill-ի միջոցով

10. Հեռախոսահամարներին/սոցիալական համարներին գծիկներ ավելացրեք 10.1 Թվերին գծիկներ ավելացնել բանաձևով 10.2 Թվերին գծիկներ ավելացրեք ըստ Format Cells-ի 10.3 Հեռախոսահամարին գծիկներ ավելացրեք Excel-ի համար Kutools-ի տեքստի ավելացմամբ

11. Բջիջներին ավելացրեք առաջատար զրոներ՝ երկարությունը ֆիքսելու համար 11.1 Format Cells հատկանիշով բջիջներին ավելացրեք առաջատար զրոներ 11.2 Բանաձևով բջիջներին ավելացրեք առաջատար զրոներ

12. Թվերին ավելացրեք հետին զրոներ՝ երկարությունը ֆիքսելու համար

13. Տեքստին ավելացրեք հետին տարածություն

14. Տեքստի կամ թվերի շուրջ ավելացրեք չակերտներ/փակագծեր 14.1 Ավելացրեք չակերտներ/փակագծեր՝ ըստ Format Cells-ի 14.2 Ավելացրեք չակերտներ/փակագծեր՝ ըստ բանաձևերի 14.3 Ավելացրեք չակերտներ/փակագծեր շուրջ VBA-ով

15. Ավելացրեք տեքստ բանաձևի արդյունքին ուղղակիորեն

Նշում

Այս ձեռնարկում ես ստեղծում եմ մի քանի օրինակներ՝ բացատրելու մեթոդները, դուք կարող եք փոխել հղումները ձեզ անհրաժեշտ համար, երբ օգտագործում եք ստորև VBA կոդ կամ բանաձևեր, կամ կարող եք ուղղակիորեն ներբեռնել նմուշները՝ փորձելու մեթոդները:

Սեղմեք ՝ նիշքի նիշքը ներբեռնելու համար

---

Այս մասում թվարկված են յուրաքանչյուր բջիջի սկզբում նիշեր ավելացնելու տարբեր մեթոդներ, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթը.

1.1 Բջիջների սկզբում ավելացրեք բանաձևով

---

Այստեղ դուք կարող եք ընտրել հետևյալ երեք բանաձևերից մեկը.

Formula1 Concatenate օպերատոր «&»

Միացրեք բազմաթիվ տեքստեր «&» նշանով:

«տեքստ»&բջիջ

Formula2 CONCATENATE ֆունկցիա

CONCATENATE ֆունկցիան օգտագործվում է տեքստերը միմյանց միացնելու համար:

CONCATENATE («տեքստ», բջիջ)

Formula3 CONCAT ֆունկցիա

Սա նոր գործառույթ է, որը հայտնվում է միայն Excel 2019-ում, Office 365-ում և Excel-ում առցանց:

CONCAT («տեքստ», բջիջ)

Ընդհանուր բանաձևերում. բջիջը բջջային հղումն է այն տեքստին, որին ցանկանում եք նախածանց ավելացնել, իսկ տեքստը այն տեքստն է, որն օգտագործվում էր բջիջում ավելացնելու համար:

Օգտագործելով վերը նշված օրինակը, դուք կարող եք օգտագործել բանաձևերը բանաձևերի տողում հետևյալ կերպ.

«&»

=$E$3&B3 or ="Iphone"&B3

CONCATENATE գործառույթ

=ՄԻԱՑՈՒՄ ($E$3,B3) or =CONCATENATE («Iphone», B3)

CONCAT ֆունկցիա

=CONCAT ($E$3,B3) or =CONCAT («Iphone», B3)

մամուլ Մտնել ստեղնը՝ արդյունքը ստանալու համար, այնուհետև քաշեք ավտոմատ լրացման բռնակը ներքև՝ B3:B6 տիրույթի յուրաքանչյուր բջիջում տեքստ ավելացնելու համար:

ուշադրությունՏեքստը պետք է փակցվի կրկնակի չակերտների մեջ, թե՞ բանաձևը վերադարձնում է սխալի արժեք #NAME?: Եթե ​​օգտագործում եք բջջային հղումը տեքստին, հիշեք, որ օգտագործեք բացարձակ հղումը, կարող եք սեղմել F4 ստեղնը՝ հարաբերական հղումը բացարձակ հղումի փոխելու համար:

1.2 Բջիջների սկզբում ավելացնել Flash Fill-ով

---

Եթե ​​դուք Excel 2013 կամ ավելի նոր տարբերակներում եք, հզոր նոր գործառույթը, Flash լրացնել, կարող է լրացնել բջիջները՝ հիմնվելով ձեր մուտքագրած վերը նշված բջիջների վրա:

Ընտրեք բջիջ առաջին բնօրինակ տվյալների կողքին, ձեռքով մուտքագրեք առաջին տվյալները նախածանցի տեքստով, ինչպես ցույց է տրված ստորև.

Այնուհետև ներքևի բջիջում շարունակեք մուտքագրել երկրորդ տվյալները նախածանցային տեքստով, մուտքագրման ընթացքում կցուցադրվի մոխրագույն ցուցակ, սեղմեք Մտնել ստեղնը, որը թույլ կտա Flash Fill-ին ավտոմատ կերպով լրացնել տվյալները:

Եթե ​​նախադիտման ցանկը չի ստեղծվում, խնդրում ենք գնալ «Տուն» ներդիր, այնուհետև սեղմել Լրացնել > Flash լրացնել այն ձեռքով գործարկելու համար:

1.3 Ավելացրեք բջիջների սկզբում՝ օգտագործելով VBA կոդը

---

Եթե ​​դուք ծանոթ եք VBA կոդին, այստեղ ներկայացվում է VBA կոդ՝ տիրույթում յուրաքանչյուր բջջի սկզբում տեքստ ավելացնելու համար:

1. Ընտրեք մի շարք բջիջներ, որոնք ցանկանում եք ավելացնել նախածանցի տեքստը, այնուհետև սեղմեք ալտ + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհան.

2. Այնուհետև բացվող պատուհանում սեղմեք Տեղադրել > Մոդուլներ դատարկ նոր մոդուլ տեղադրելու համար:

3. Պատճենեք և տեղադրեք VBA կոդի ներքևում նոր մոդուլում:

VBA: Ավելացնել բջիջների սկզբում

Sub AppendToExistingOnLeft()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = "Iphone" & c.Value
Next
End Sub

ուշադրություն: կոդի սկրիպտում, Iphone այն տեքստն է, որը ցանկանում եք ավելացնել ընտրված բջիջների սկզբում, փոխեք այն ձեր կարիքի համար:

4. Մամուլ F5 բանալին կամ կտտացնելը Վազում կոճակ  պատուհանում VBA կոդը ակտիվացնելու համար:

Այժմ ընտրված բոլոր բջիջներում սկզբում ավելացվել է «Iphone» տեքստը:

---

Բջիջների սկզբում տեքստ ավելացնելուց բացի, բջիջների վերջում տեքստ ավելացնելը նույնպես տարածված է: Այստեղ մենք վերցնում ենք միավորի ավելացում յուրաքանչյուր բջիջի վերջում՝ օրինակների համար, ինչպես ցույց է տրված ստորև նշված սքրինշոթը.

2.1 Բջիջների վերջում ավելացրեք բանաձևով

---

Այստեղ դուք կարող եք ընտրել հետևյալ երեք բանաձևերից մեկը.

Formula1 Concatenate օպերատոր «&»

Միացրեք բազմաթիվ տեքստեր «&» նշանով:

Բջջ&«տեքստ»

Formula2 CONCATENATE ֆունկցիա

CONCATENATE ֆունկցիան օգտագործվում է տեքստերը միմյանց միացնելու համար:

CONCATENATE (բջջ, տեքստ»)

Formula3 CONCAT ֆունկցիա

Սա նոր գործառույթ է, որը հայտնվում է միայն Excel 2019-ում, Office 365-ում և Excel-ում առցանց:

CONCAT (բջջ, տեքստ»)

Ընդհանուր բանաձևերում. բջիջը բջիջի հղումն է այն տեքստին, որին ցանկանում եք ավելացնել վերջածանց, իսկ տեքստը այն տեքստն է, որը նախկինում ավելացնում էր բջիջը:

Օգտագործելով վերը նշված օրինակը, դուք կարող եք օգտագործել բանաձևերը բանաձևերի տողում հետևյալ կերպ.

«&»

=B3&$E$3 or =B3&"կգ"

CONCATENATE գործառույթ

=CONCATENATE (B3, $E$3) or = ԿՈՆԿԱՏԵՆԱՏ (B3, «կգ»)

CONCAT ֆունկցիա

=CONCAT (B3, $E$3) or =CONCAT (B3, «կգ»)

մամուլ Մտնել ստեղնը՝ արդյունքը ստանալու համար, այնուհետև քաշեք ավտոմատ լրացման բռնակը ներքև՝ B3:B6 տիրույթի յուրաքանչյուր բջիջի վերջում տեքստ ավելացնելու համար:

ուշադրությունՏեքստը պետք է փակցվի կրկնակի չակերտների մեջ, թե՞ բանաձևը վերադարձնում է սխալի արժեք #NAME?: Եթե ​​օգտագործում եք բջջային հղումը տեքստին, հիշեք, որ օգտագործեք բացարձակ հղումը, կարող եք սեղմել F4 ստեղնը՝ հարաբերական հղումը բացարձակ հղումի փոխելու համար:

2.2 Բջիջների վերջում ավելացնել Flash Fill-ով

---

Եթե ​​դուք Excel 2013 կամ ավելի նոր տարբերակներում եք, հզոր նոր գործառույթը, Flash լրացնել, կարող է լրացնել բջիջները՝ հիմնվելով ձեր մուտքագրած վերը նշված բջիջների վրա:

Ընտրեք բջիջ առաջին բնօրինակ տվյալների կողքին, ձեռքով մուտքագրեք առաջին տվյալները վերջածանցով տեքստով, ինչպես ցույց է տրված ստորև.

Այնուհետև ակտիվացրեք բջիջը առաջին արդյունքի տակ, սեղմեք Ամսաթիվ > Flash լրացնել, ներքևում գտնվող բոլոր բջիջները, ներառյալ ակտիվ բջիջը, կլցվեն ավտոմատ կերպով:

2.3 Ավելացրեք բջիջների վերջում՝ օգտագործելով VBA կոդը

---

Ահա VBA կոդ, որը կարող է տեքստ ավելացնել տիրույթի յուրաքանչյուր բջջի վերջում:

1. Ընտրեք մի շարք բջիջներ, որոնք ցանկանում եք ավելացնել վերջածանցի տեքստը, այնուհետև սեղմեք ալտ + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհան.

2. Այնուհետև բացվող պատուհանում սեղմեք Տեղադրել > Մոդուլներ դատարկ նոր մոդուլ տեղադրելու համար:

3. Պատճենեք և տեղադրեք VBA կոդի ներքևում նոր մոդուլում:

VBA: Ավելացնել բջիջների վերջում

Sub AppendToExistingOnRight()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = c.Value & "Kg"
Next
End Sub

ուշադրություն: կոդի սկրիպտում, Kg այն տեքստն է, որը ցանկանում եք ավելացնել ընտրված բջիջների վերջում, փոխեք այն ձեր կարիքի համար:

4. Մամուլ F5 բանալին կամ կտտացնելը Վազում կոճակ  պատուհանում VBA կոդը ակտիվացնելու համար:

Այժմ յուրաքանչյուր բջիջի վերջում ավելացվել է «Kg» տեքստը:

---

Ձեզանից շատերի համար բջիջների սկզբում կամ վերջում տեքստեր ավելացնելը հեշտ է, բայց բջիջների մեջտեղում տեքստեր ավելացնելը գուցե ինչ-որ չափով դժվար է: Վերցրեք օրինակ, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթը, ավելացնելով բաժանարար, օրինակ՝ երկու կետ. B3:B7 տիրույթի յուրաքանչյուր բջիջի երկրորդ նիշի վերջում:

3.1 Բանաձևով ավելացնել տողի n-րդ նիշը

---

Ահա չորս բանաձևեր, որոնք տրամադրված են ձեզ այս գործը վարելու համար, ընտրեք մեկը՝ օգտագործելու համար.

Formula1 Միավորել Ձախ և աջ գործառույթները

ՁԱԽ (բջջ, n) & «տեքստ» & ԱՋ (բջիջ, LEN (բջջ) -n)

Formula2 COMBINE CONCATENATE(CONCAT), RIGHT և LEN ֆունկցիաները

CONCATENATE (Ձախ (բջիջ, n), «տեքստ», ԱՋ (բջիջ, LEN (բջջ) -n))

Or

CONCAT (Ձախ (բջիջ, n), «տեքստ», ԱՋ (բջիջ, LEN (բջջ) -n))

Formula3 REPLACE ֆունկցիան

REPLACE (բջիջ, n+1, 0, «տեքստ»)

Ընդհանուր բանաձևերում. բջիջը բջիջի հղումն է այն տեքստին, որը ցանկանում եք ավելացնել տեքստը մեջտեղում, և տեքստը այն տեքստն է, որն օգտագործվում էր բջիջում ավելացնելու համար, n-ն այն թիվն է, որը սահմանում է տեքստային տողի նիշից հետո: ավելացնել տեքստ:

Վերը նշված աշխատանքը լուծելու համար խնդրում ենք օգտագործել հետևյալ բանաձևերը.

Միավորել Ձախ և աջ գործառույթները

=ՁԱԽ(B3, 2) & ":" & ԱՋ (B3, LEN(B3) -2) or =ՁԱԽ(B3, 2) և $E$3 և ԱՋ (B3, LEN(B3) -2)

COMBINE CONCATENATE(CONCAT), RIGHT և LEN ֆունկցիաները

=CONCATENATE(ՁԱԽ(B3, 2), ":", RIGHT(B3, LEN(B3) -2)) or =CONCAT (ՁԱԽ(B3, 2), ":", ԱՋ(B3, LEN(B3) -2))

Փոխարինել գործառույթը

= REPLACE (B3, 2+1, 0, ":") or =ՓՈԽԱՐԻՆԵԼ (B3, 2+1, 0, $E$3)

մամուլ Մտնել ստեղնը՝ արդյունքը ստանալու համար, այնուհետև քաշեք ավտոմատ լրացման բռնիչը՝ B3:B7 տիրույթի յուրաքանչյուր բջիջի երկրորդ նիշից հետո տեքստ ավելացնելու համար:

ուշադրությունՏեքստը պետք է փակցվի կրկնակի չակերտների մեջ, թե՞ բանաձևը վերադարձնում է սխալի արժեք #NAME?: Եթե ​​օգտագործում եք բջջային հղումը տեքստին, հիշեք, որ օգտագործեք բացարձակ հղումը, կարող եք սեղմել F4 ստեղնը՝ հարաբերական հղումը բացարձակ հղումի փոխելու համար:

3.2 Ավելացնել տողի n-րդ նիշը Flash Fill-ի միջոցով

---

Եթե ​​դուք Excel 2013 կամ ավելի նոր տարբերակներում եք, ապա Flash լրացնել, կարող է լրացնել բջիջները՝ հիմնվելով ձեր մուտքագրած վերը նշված բջիջների վրա:

Ընտրեք բջիջ առաջին բնօրինակ տվյալների կողքին, ձեռքով մուտքագրեք առաջին տվյալները երկրորդ նիշից հետո երկու կետով, ինչպես ցույց է տրված ստորև.

Այնուհետև ակտիվացրեք բջիջը առաջին արդյունքի տակ, սեղմեք Ctrl + E ստեղներ ակտիվացնելու համար Flash լրացնել հրամանը, ստորև գտնվող բոլոր բջիջները, ներառյալ ակտիվ բջիջը, լրացվել են ավտոմատ կերպով:

ուշադրությունԵթե ​​դուք MAC համակարգում եք, սեղմեք Command + E ստեղները:

3.3 Ավելացրեք տողի n-րդ նիշը՝ օգտագործելով VBA կոդը

---

VBA կոդը նույնպես կարող է անել այս աշխատանքը:

1. Մամուլ ալտ + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհան.

2. Այնուհետև բացվող պատուհանում սեղմեք Տեղադրել > Մոդուլներ դատարկ նոր մոդուլ տեղադրելու համար:

3. Պատճենեք և տեղադրեք VBA կոդի ներքևում նոր մոդուլում:

VBA. Ավելացնել բջիջների կեսին

Sub AddToMidduleOfString()
    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, 2 & ":" & VBA.Mid(Rng.Value, 3, VBA.Len(Rng.Value) - 1)
    Next
End Sub

ուշադրություն: կոդի սկրիպտում, 2 այն համարն է, որը սահմանում է այն դիրքը, որից հետո ցանկանում եք տեքստ ավելացնել, : այն տեքստն է, որին ցանկանում եք ավելացնել, 3 2-ի և ձեր ավելացրած տեքստի երկարության գումարն է: Վերցրեք ևս մեկ օրինակ՝ «AB» տողի առաջին նիշից հետո «and» ավելացնելու համար սկրիպտը պետք է լինի Rng.Value = VBA.Left(Rng.Value, 1) &"և«& VBA.Mid(Rng.Value, 4, VBA.Len (Rng.Value) - 1)

4. Մամուլ F5 բանալին կամ կտտացնելը Վազում կոճակ  պատուհանում VBA կոդը ակտիվացնելու համար: Բացվում է երկխոսություն՝ տեքստ ավելացնելու համար բջիջներ ընտրելու համար:

5: սեղմեք OK. Այժմ «:» տեքստն ավելացվել է B19:B23 տիրույթի յուրաքանչյուր բջիջի երկրորդ նիշից հետո:

---

Եթե ​​հոգնել եք բանաձևերից և VBA-ից, կարող եք փորձել հզոր և հարմար գործիք, Excel- ի համար նախատեսված գործիքներ, որը կարող է օգնել ձեզ դրա հետ կապված Ավելացրեք տեքստ առանձնահատկություն.

Ավելացնել տեքստի այս հատկությունը կարող է.

• Ավելացրեք տեքստ առաջին նիշից առաջ
• Ավելացրեք տեքստ վերջին նիշից հետո
• Ավելացրեք տեքստ նշված դիրքերում
• Երկարացնելը
  Տեքստ ավելացրեք մեծատառերից առաջ
  Տեքստ ավելացրեք փոքրատառերից առաջ
  Տեքստ ավելացրեք մեծատառ/փոքրատառից առաջ
  Ավելացրեք տեքստ թվային նիշերից առաջ

Սեղմեք՝ հիմա 30-օրյա անվճար փորձարկում ստանալու համար:

Ընտրեք այն բջիջները, որոնք ցանկանում եք ավելացնել տեքստ, այնուհետև կտտացնելով կիրառեք Ավելացնել տեքստ Կուտոլս > Տեքստ > Ավելացրեք տեքստ.

4.1 Ավելացրեք տեքստ առաջին կամ վերջին նիշից հետո

---

Է Ավելացրեք տեքստ երկխոսություն, մուտքագրեք տեքստը, որը ցանկանում եք ավելացնել բջիջներում Տեքստ textbox, ապա ստուգեք Առաջին հերոսից առաջ է Դիրք բաժնում:

Սեղմել Դիմել or Ok լրացումն ավարտելու համար:

Վերջին նիշից հետո տեքստ ավելացնելու համար մուտքագրեք տեքստը, որը ցանկանում եք ավելացնել բջիջներում Տեքստ textbox, ապա ստուգեք Վերջին հերոսից հետո է Դիրք բաժնում:

Սեղմել Դիմել or Ok լրացումն ավարտելու համար:

4.2 Ավելացրեք տեքստ նշված դիրք(ներ)ում

---

Երբեմն դուք կարող եք տեքստ ավելացնել բջիջի կեսին կամ տեքստ ավելացնել բջիջի մի քանի դիրքերում: Ենթադրենք ավելացնելով «-» բաժանարարը սոցիալական թվերի երրորդ և յոթերորդ թվերից հետո, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթը.

Է Ավելացրեք տեքստ երկխոսություն, մուտքագրեք տեքստը Տեքստ տեքստային տուփ և ստուգեք Մատնանշել տարբերակը, այնուհետև մուտքագրեք դիրքերը՝ օգտագործելով ստորակետ՝ տեքստային տուփի մեջ առանձնացնելու համար և սեղմեք Ok or Դիմել.

4.3 «Ավելացնել տեքստ» ծրագրի ընդլայնում

---

Բացի նորմալ դիրքերում տեքստ ավելացնելուց (սկիզբ, վերջ և նշված դիրք), Ավելացրեք տեքստ օգտակար ծրագիրը նաև աջակցում է տեքստ ավելացնել

• Նախքան մեծատառերը
• Փոքրատառերից առաջ
• Մեծատառ/փոքրատառերից առաջ
• Թվային նիշերից առաջ

Է Ավելացրեք տեքստ երկխոսություն, մուտքագրեք տեքստը Տեքստ տեքստային տուփ և ստուգեք Միայն ավելացնել տարբերակը, այնուհետև կտտացրեք ներքևում գտնվող բացվող ընտրացանկին, որպեսզի ընտրեք ձեր անհրաժեշտ գործողությունը:

Բացի «Ավելացնել տեքստ» հատկությունից, Kutools-ը Excel-ի համար ունի այլ 300+ օգտակար հատկություններ, որոնք կարող են ձեզ լավություն անել Excel-ի տարբեր աշխատատեղերում, ստացեք անվճար ներբեռնումը հիմա:

---

Այս մասը տրամադրում է բանաձևեր Excel-ում առաջին հայտնված հատուկ տեքստից առաջ կամ հետո տեքստ ավելացնելու վերաբերյալ:

5.1 Ավելացրեք տեքստ առաջին կոնկրետ տեքստից առաջ

---

Օրինակ, դուք ցանկանում եք ավելացնել «(վաճառք)» տեքստը վանդակում առաջին «գին» տեքստից առաջ, ինչպես ցույց են տրված ստորև ներկայացված սքրինշոթները.

Excel-ում REPLACE և SUBSTITUTE ֆունկցիաները կարող են լուծել այս խնդիրը:

Փոխարինել գործառույթը

REPLACE (բջիջ, FIND («գտնել_տեքստը», բջիջ), 0, «ավելացնել_տեքստ»)

ՓՈՓՈԽՈՒԹՅՈՒՆ գործառույթ

SUBSTITUTE (բջջ», «գտնել_տեքստ», «փոխարինել_տեքստ», 1)

Այս դեպքում խնդրում ենք օգտագործել վերը նշված բանաձևերը հետևյալ կերպ.

= REPLACE (B4, FIND ("գին", B4), 0," (վաճառք)")

Or

=ՓՈԽՆԱՐԿՈՒՄ (B4, գին», (վաճառք) գին», 1)

Բանաձևի փաստարկներն այս դեպքում են

Բջջային՝ B4,

Գտնել_տեքստը՝ գին,

Ավելացնել_տեքստ՝ (վաճառք),

Replace_text:(վաճառքի)գին.

մամուլ Մտնել բանալին՝ առաջին ավելացման արդյունքը ստանալու համար, այնուհետև քաշեք ավտոմատ լրացման բռնիչը այս բանաձևի կարիք ունեցող բջիջների վրա:

5.2 Ավելացրեք տեքստ առաջին կոնկրետ տեքստից հետո

---

Օրինակ, դուք ցանկանում եք վանդակում առաջին կետից հետո ավելացնել «$» խորհրդանիշը, ինչպես ցույց են տրված ստորև նշված սքրինշոթները.

Excel-ում REPLACE և SUBSTITUTE ֆունկցիաները կարող են լուծել այս խնդիրը:

Փոխարինել գործառույթը

REPLACE (բջջ, FIND («գտնել_տեքստը», բջիջ), գտնել_տեքստի_երկարությունը, փոխարինել_տեքստը")

ՓՈՓՈԽՈՒԹՅՈՒՆ գործառույթ

SUBSTITUTE (բջջ», «find_text», «replace_text»)

Այս դեպքում խնդրում ենք օգտագործել վերը նշված բանաձևերը հետևյալ կերպ.

=ՓՈԽԱՐԻՆԵԼ(B12,FIND(":",B12),1,":$")

Or

= SUBSTITUTE (B12,":",":$")

Բանաձևի փաստարկներն այս դեպքում են

Բջջային՝ B12,

Find_text: :,

Replace_text::$.

Գտնել_տեքստի_երկարությունը՝ 1

մամուլ Մտնել բանալին՝ առաջին ավելացման արդյունքը ստանալու համար, այնուհետև քաշեք ավտոմատ լրացման բռնիչը այս բանաձևի կարիք ունեցող բջիջների վրա:

---

Դասընթացի այս մասում այն ​​ներկայացնում է երեք տարբեր մեթոդներ (բանաձև, Գտնել և փոխարինել, VBA), որոնք կօգնեն ձեզ նիշեր ավելացնել բջջի յուրաքանչյուր բառից առաջ կամ հետո:

Յուրաքանչյուր բառից առաջ ավելացրեք նիշեր

Յուրաքանչյուր բառից հետո ավելացրեք նիշեր

6.1 Յուրաքանչյուր բառից առաջ կամ հետո ավելացրեք նիշ(ներ) ըստ բանաձևի

---

SUBSTITUTE ֆունկցիան կարող է օգտագործվել այս աշխատանքը լուծելու համար, ընդհանուր բանաձևերը, ինչպիսիք են.

Յուրաքանչյուր բառից առաջ ավելացրեք

"նիշ"&SUBSTITUTE (տող, " "," նիշ")

Յուրաքանչյուր բառից հետո ավելացրեք

SUBSTITUTE(string", ","character ")&"character"

Ենթադրելով B3:B6 ցուցակի յուրաքանչյուր բառից առաջ ավելացնել «+», խնդրում ենք օգտագործել հետևյալ բանաձևը.

="+"&ՓՈԽՆԱՐԿՈՒՄ (B3, " "," +")

մամուլ Մտնել բանալին՝ առաջին արդյունքը ստանալու համար, այնուհետև քաշեք ավտոմատ լրացման բռնակը ներքև՝ բոլոր արդյունքները ստանալու համար:

Ենթադրելով B11:B14 ցուցակի յուրաքանչյուր բառից հետո ավելացնել ($), խնդրում ենք օգտագործել ստորև բերված բանաձևը.

= SUBSTITUTE(B11," ","($) ")&"($)"

մամուլ Մտնել բանալին՝ առաջին արդյունքը ստանալու համար, այնուհետև քաշեք ավտոմատ լրացման բռնակը ներքև՝ բոլոր արդյունքները ստանալու համար:

6.2 Յուրաքանչյուր բառից առաջ կամ հետո ավելացրեք նիշ(ներ)՝ Գտնել և փոխարինել

---

Եթե ​​ցանկանում եք նիշեր ավելացնել յուրաքանչյուր բառից առաջ՝ բացառությամբ առաջինի, կամ ավելացնել նիշեր յուրաքանչյուր բառից հետո՝ բացառելով վերջինը, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթը, ներկառուցված Excel-ը Գտնել եւ փոխարինել կոմունալ ծառայությունը կարող է կարգավորել այս աշխատանքը:

Յուրաքանչյուր բառից առաջ ավելացրեք՝ բացառելով առաջինը

Յուրաքանչյուր բառից հետո ավելացրեք՝ բացառությամբ վերջինի

1. Ընտրեք այն բջիջները, որոնք ցանկանում եք ավելացնել նիշեր յուրաքանչյուր բառից առաջ կամ հետո, ապա սեղմեք Ctrl + H ստեղները ՝ Գտնել եւ փոխարինել երկխոսություն:

2. Մուտքագրեք բացատ մեջ Գտեք ինչ textbox, ապա մուտքագրեք նոր նիշերը բացատով Փոխարինել textbox և վերջապես սեղմեք կոճակը Փոխարինեք բոլորը կոճակը:

Գործողություն	ընդհանուր	Օրինակ
Յուրաքանչյուր բառից առաջ ավելացրեք նիշեր	Բացատից հետո ավելացրեք նոր նիշեր	Ամեն բառից առաջ ավելացնել (վաճառք):

Գործողություն	ընդհանուր	Օրինակ
Յուրաքանչյուր բառից հետո ավելացրեք նիշեր	Հետևեցին նոր կերպարներ՝ բացատով	Ավելացնել - ամեն բառից հետո

Այստեղ տրամադրվում է երկու VBA կոդ յուրաքանչյուր բառից առաջ կամ հետո նիշ ավելացնելու համար, խնդրում ենք գործարկել կոդը՝ հետևելով ստորև նշված քայլերին:

1. Մամուլ ալտ + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհան.

2. Բացվող պատուհանում կտտացրեք Տեղադրել > Մոդուլներ նոր դատարկ մոդուլ տեղադրելու համար:

3. Պատճենեք և տեղադրեք VBA կոդի ներքևում մոդուլում:

Ամեն բառից առաջ ավելացրեք

Sub InsertCharBeforeWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
    On Error Resume Next
   
    Set xSRg = Application.Selection
    Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
    If StrPtr(xInStr) = 0 Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xArr = Split(xCell.Text, " ")
        xValue = ""
        For Each xStr In xArr
            If Trim(xStr) <> "" Then
                If xValue = "" Then
                    xValue = xInStr & Trim(xStr)
                Else
                    xValue = xValue & " " & xInStr & Trim(xStr)
                    End If
            End If
        Next
        xCell.Value = xValue
    Next
    Application.ScreenUpdating = True
End Sub

Ամեն բառից հետո ավելացրեք

Sub InsertCharAfterWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
    On Error Resume Next
 
    Set xSRg = Application.Selection
    Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
   
    xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
    If StrPtr(xInStr) = 0 Then Exit Sub
   
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xArr = Split(xCell.Text, " ")
        xValue = ""
        For Each xStr In xArr
            If Trim(xStr) <> "" Then
                If xValue = "" Then
                    xValue = Trim(xStr) & xInStr
                Else
                    xValue = xValue & " " & Trim(xStr) & xInStr
                End If
            End If
        Next
        xCell.Value = xValue
    Next
    Application.ScreenUpdating = True
End Sub

4. Մամուլ F5 կոդը գործարկելու բանալին (կամ կարող եք սեղմել Վազում կոճակ   ), դուրս է գալիս երկխոսություն՝ խնդրելու համար ընտրել շարունակական բջիջներ՝ աշխատելու համար, սեղմեք OK.

5. Երկրորդ բացվող երկխոսության մեջ մուտքագրեք այն նիշերը, որոնք ցանկանում եք ավելացնել, սեղմեք OK.

Այնուհետև նիշերը կավելացվեն յուրաքանչյուր բառի առջևում կամ վերջում:

---

Երբեմն դուք կարող եք տեքստ ավելացնել յուրաքանչյուր նիշի միջև: Այստեղ, այս մասում, այն թվարկում է երկու սցենար, մեկը՝ յուրաքանչյուր նիշի միջև տեքստ ավելացնելը, մյուսը՝ յուրաքանչյուր թվի միջև տարածություն ավելացնելը:

7.1 Ավելացրեք տեքստ յուրաքանչյուր նիշի/նիշի միջև Օգտատիրոջ կողմից սահմանված գործառույթով

---

Տողերի յուրաքանչյուր նիշի միջև նիշեր ավելացնելու համար Օգտատիրոջ կողմից սահմանված գործառույթը կարող է օգնել ձեզ:

Այս դեպքում մենք յուրաքանչյուր նիշի միջև բացատ ենք ավելացնում:

1. Մամուլ ալտ + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհան.

2. Բացվող պատուհանում կտտացրեք Տեղադրել > Մոդուլներ նոր դատարկ մոդուլ տեղադրելու համար:

3. Պատճենեք և տեղադրեք VBA կոդի ներքևում մոդուլում:

Ավելացրեք տեքստ նիշերի միջև

Function AddText(Str As String) As String
    Dim i As Long
    For i = 1 To Len(Str)
        AddText = AddText & Mid(Str, i, 1) & " "
    Next i
    AddSpace = Trim(AddSpace)
End Function

4. Պահպանեք կոդը և փակեք պատուհանը, որպեսզի վերադառնաք աշխատաթերթ, այնուհետև մուտքագրեք ստորև բերված բանաձևը այն բջիջում, որը ցանկանում եք տեղադրել ավելացման արդյունքը:

=Ավելացնել տեքստ (B3)

B3-ն այն բջիջն է, որը պարունակում է տողը, որը ցանկանում եք ավելացնել տարածություն նիշերի միջև:

5. Մամուլ Մտնել բանալին՝ արդյունքը ստանալու համար, քաշեք ավտոմատ լրացման բռնակը բջիջների վրայով՝ ձեզ անհրաժեշտ այլ արդյունքներ ստանալու համար:

ուշադրություն: 1） VBA կոդում կարող եք փոխել "" այլ տեքստերի, ինչպես դուք պետք է, ենթադրելով փոխել այն "-" ավելացնել - նիշերի միջև: 2） Կոդը կավելացնի նոր տեքստ յուրաքանչյուր նիշից հետո: Դուք կարող եք հեռացնել վերջին ավելացված տեքստը, եթե դա ձեզ անհրաժեշտ չէ, օգտագործելով ստորև բերված բանաձևը: Բանաձևի մասին լրացուցիչ մանրամասների համար այցելեք՝ Ինչպես հեռացնել առաջին կամ վերջին N նիշերը բջիջից կամ տողից Excէլ? LEFT(բջջ,LEN(բջջ)-տեքստի_երկարություն)

7.2 Բանաձևով յուրաքանչյուր թվի միջև տարածություն ավելացրեք

---

Եթե ​​ցանկանում եք տարածություն ավելացնել տողի թվանշանների միջև, որը թվային արժեք է, կարող եք օգտագործել TEXT ֆունկցիան:

ուշադրությունտիրույթի թվերը, որոնց միջև ցանկանում եք ավելացնել տարածություն, պետք է լինեն նույն երկարությամբ, հակառակ դեպքում որոշ արդյունքներ կարող են սխալ լինել:

Ենթադրելով, որ այստեղ կա B8:B10 տիրույթի 12 նիշանոց թվերի ցանկ, խնդրում ենք ընտրել մի բջիջ, որը կտեղադրի արդյունքը, մուտքագրեք ստորև բերված բանաձևը.

=TEXT(B10,"# # # # # # # #")

մամուլ Մտնել ստեղնը, այնուհետև քաշեք ավտոմատ լրացման բռնիչը այլ բջիջների վրա:

Եթե ​​թվերի երկարությունը 5 է, ապա բանաձևը կփոխվի հետևյալ կերպ =TEXT(B10,"# # # # #").

---

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

1. Մամուլ ալտ + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհան.

2. Բացվող պատուհանում կտտացրեք Տեղադրել > Մոդուլներ նոր դատարկ մոդուլ տեղադրելու համար:

3. Պատճենեք և տեղադրեք VBA կոդի ներքևում մոդուլում:

Բառերի միջև նիշեր ավելացրեք

Function AddCharacters(pValue As String) As String
'UpdatebyExtendoffice20160908
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
If xAsc >= 65 And xAsc <= 90 Then
xOut = xOut & " " & VBA.Mid(pValue, i, 1)
Else
xOut = xOut & VBA.Mid(pValue, i, 1)
End If
Next
AddCharacters = xOut
End Function

4. Պահպանեք կոդը և փակեք պատուհանը, որպեսզի վերադառնաք աշխատաթերթ, այնուհետև մուտքագրեք ստորև բերված բանաձևը այն բջիջում, որը ցանկանում եք տեղադրել ավելացման արդյունքը:

=Ավելացնել նիշեր (B3)

B3-ն այն բջիջն է, որը պարունակում է տող, որը ցանկանում եք ավելացնել բառերի միջև տարածություն:

5. Մամուլ Մտնել բանալին՝ արդյունքը ստանալու համար, քաշեք ավտոմատ լրացման բռնակը բջիջների վրայով՝ ձեզ անհրաժեշտ այլ արդյունքներ ստանալու համար:

ուշադրությունVBA կոդում կարող եք փոխել "" այլ տեքստերի, ինչպես դուք պետք է, ենթադրելով փոխել այն "-" ավելացնել - բառերի միջև:

---

Տեքստերի և թվերի միջև հատուկ նիշ (ներ) ավելացնելու համար, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթը, այստեղ տրամադրվում է երկու մեթոդ:

9.1 Տեքստերի և թվերի միջև նիշ ավելացնել բանաձևով

---

Եթե ​​տեքստերը թվերի առջևում են, ապա ընդհանուր բանաձևը հետևյալն է

TRIM(REPLACE(string,MIN(FIND({1,2,3,4,5,6,7,8,9,0}, string&"1234567890")),0,"-"))

Օգտագործելով վերը նշված դեպքը որպես օրինակ, խնդրում ենք օգտագործել բանաձևը հետևյալ կերպ.

=TRIM(REPLACE(B4,MIN(FIND({1,2,3,4,5,6,7,8,9,0},B4&"1234567890")),0,"-"))

մամուլ Մտնել բանալին՝ առաջին արդյունքը ստանալու համար, այնուհետև քաշեք ավտոմատ լրացման բռնակը այլ բջիջների վրայով՝ այս բանաձևը լրացնելու համար:

Եթե ​​թվերը տեքստերի առջևում են, ապա ընդհանուր բանաձևը հետևյալն է

LEFT(string,SUM(LEN(string)-LEN(SUBSTITUTE(string,{0,1,2,3,4,5,6,7,8,9},""))))&"."&RIGHT (string,LEN(B13)- SUM(LEN(string)-LEN(SUBSTITUTE(string, {0,1,2,3,4,5,6,7,8,9}, ""))))

Օգտագործելով վերը նշված դեպքը որպես օրինակ, խնդրում ենք օգտագործել բանաձևը հետևյալ կերպ.

=LEFT(B13,SUM(LEN(B13)-LEN(SUBSTITUTE(B13,{0,1,2,3,4,5,6,7,8,9},""))))&"."&RIGHT(B13,LEN(B13)- SUM(LEN(B13)-LEN(SUBSTITUTE(B13, {0,1,2,3,4,5,6,7,8,9}, ""))))

մամուլ Մտնել բանալին՝ առաջին արդյունքը ստանալու համար, այնուհետև քաշեք ավտոմատ լրացման բռնակը այլ բջիջների վրայով՝ այս բանաձևը լրացնելու համար:

9.2 Ավելացնել նիշ տեքստերի և թվերի միջև Flash Fill-ի միջոցով

---

Եթե ​​դուք Excel 2013 կամ ավելի նոր տարբերակներում եք, ապա Flash լրացնել կարող է նաև օգնել ձեզ ավելացնել նիշ(ներ) տեքստերի և թվերի միջև:

Բնօրինակ տվյալների կողքին մուտքագրեք նոր տվյալները, որոնց տեքստերի և թվերի միջև ավելացվել է նիշ(ներ)ը: Այնուհետև սեղմեք Enter ստեղնը՝ առաջին արդյունքի հաջորդ բջիջ գնալու համար:

Եվ սեղմեք Ctrl + E ստեղներ՝ Flash Fill-ը միացնելու համար:

Երկարացնելը

Այս ձեռնարկը նաև թվարկում է տեքստ ավելացնելու որոշ սցենարներ, որոնք մենք կարող ենք հանդիպել մեր առօրյա կյանքում կամ աշխատանքում:

---

Երբեմն, դուք պետք է ավելացնեք բաժանարարներ, ինչպիսիք են գծիկները հեռախոսահամարների կամ սոցիալական համարների շարքին, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթը: Ձեռքով մուտքագրումը կփորձարկվի, եթե հարյուրավոր թվեր ավելացվեն: Այս մասում այն ​​ներկայացնում է երեք հնարքներ՝ այս աշխատանքը արագ կարգավորելու համար:

10.1 Թվերին գծիկներ ավելացնել բանաձևով

---

Ահա երկու բանաձև, որոնք կարող են արագ գծիկ ավելացնել թվերին: B3 բջիջի երրորդ և վեցերորդ թվերից հետո տողեր ավելացնելու համար օգտագործեք հետևյալ բանաձևը.

Փոխարինել գործառույթը

=ՓՈԽԱՐԻՆԻ (ՓՈԽԱՐԻՆԻ (B3,4,0,"-"), 8,0,"-")

ՏԵՔՍՏ գործառույթ

=TEXT(B3,"???-???-???")

մամուլ Մտնել բանալին՝ առաջին արդյունքը ստանալու համար, այնուհետև քաշեք ավտոմատ լրացման բռնակը այլ բջիջների վրայով:

ուշադրություն: Դուք կարող եք փոխել վերը նշված բանաձևերի փաստարկները ըստ անհրաժեշտության: Ենթադրելով ավելացնել "-" Երկրորդ, չորրորդ և վեցերորդ թվերից հետո կարող եք օգտագործել բանաձևերը հետևյալ կերպ. =ՓՈԽԱՐԻՆԻ (ՓՈԽԱՐԻՆԻ (ՓՈԽԱՐԻՆԻ (B3,3,0,"-"), 6,0,"-"), 9,0,"-") =TEXT(B3,"??-??-??-???")

10.2 Թվերին գծիկներ ավելացրեք ըստ Format Cells-ի

---

Բնօրինակ բջիջների թվերին ուղղակի գծիկներ ավելացնելու համար կարող եք օգտագործել Ձևաչափել բջիջները առանձնահատկություն.

1. Ընտրեք այն թվերը, որոնց վրա ցանկանում եք գծիկներ ավելացնել, ապա սեղմեք Ctrl + 1 ստեղները ՝ Ձևաչափել բջիջները երկխոսություն:

2. Մեջ Ձևաչափել բջիջները երկխոսություն, տակ Թիվ էջանիշ, ընտրեք Սովորություն - ից կատեգորիա բաժնում:

3. Հետո աջ կողմում Տիպ բաժինը, տեսակը ###-###-### տեքստային տուփի մեջ սեղմեք OK.

Այժմ ընտրված թվերին ավելացվել են գծիկներ:

10.3 Հեռախոսահամարին գծիկներ ավելացրեք Excel-ի համար Kutools-ի տեքստի ավելացմամբ

---

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

1. Ընտրեք այն բջիջները, որոնք պարունակում են գծիկներ ավելացնելու համար անհրաժեշտ թվերը, սեղմեք Կուտոլս > Տեքստ > Ավելացնել տեքստ:

2. Մեջ Ավելացրեք տեքստ երկխոսություն, մուտքագրեք գծիկ կամ այլ բաժանարար Տեքստ տեքստային տուփ, ընտրիր Մատնանշել տարբերակը, այնուհետև մուտքագրեք այն դիրքերը, որոնցից հետո ցանկանում եք ավելացնել գծիկներ և դրանք բաժանել ստորակետերով ստորև նշված տեքստային վանդակում:

3: սեղմեք Ok կամ Դիմել։ Այնուհետև ընտրված թվերին ավելացվել են գծիկներ:

Անվճար ներբեռնում Ավելացնել տեքստ 30-օրյա փորձաշրջանի համար:

---

Ենթադրելով, որ կա տարբեր երկարությունների թվերի ցանկ, դուք ցանկանում եք ավելացնել առաջատար զրոներ՝ դրանք նույն երկարությամբ դարձնելու և կոկիկ տեսք ունենալու համար, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթը: Ահա երկու եղանակ, որոնք տրամադրվում են ձեզ՝ գործը վարելու համար:

11.1 Format Cells հատկանիշով բջիջներին ավելացրեք առաջատար զրոներ

---

Դուք կարող եք օգտագործել այն Ձևաչափել բջիջները հատկություն՝ սահմանելու հատուկ ձևաչափ՝ բջիջի երկարությունը շտկելու համար՝ ավելացնելով առաջատար զրոներ:

1. Ընտրեք այն բջիջները, որոնք ցանկանում եք ավելացնել առաջատար զրոներ, ապա սեղմեք Ctrl + 1 հնարավորություն տալու ստեղները Ձևաչափել բջիջները երկխոսություն:

2. Մեջ Ձևաչափել բջիջները երկխոսություն, տակ Թիվ էջանիշ, ընտրեք Սովորություն - ից կատեգորիա բաժնում:

3. Հետո աջ կողմում Տիպ բաժինը, տեսակը 0000 տեքստային տուփի մեջ (թվի երկարությունը 4-dight ֆիքսելու համար, մուտքագրեք 0000, կարող եք փոխել այն այլ երկարությամբ, օրինակ՝ 5-dight, տպեք 00000), սեղմեք OK.

Այնուհետև թվերն ավելացվել են առաջատար զրոներով և նույն երկարությամբ։

ուշադրությունԵթե ​​սկզբնական տվյալների երկարությունը գերազանցում է սահմանված երկարությունը, այն կցուցադրի սկզբնական տվյալները առանց սկզբնական զրոների:

11.2 Բանաձևով բջիջներին ավելացրեք առաջատար զրոներ

---

Եթե ​​դուք չեք ցանկանում փոխել սկզբնական տվյալները, կարող եք օգտագործել բանաձև՝ այլ վայրերի թվերին առաջատար զրոներ ավելացնելու համար:

Ահա երեք գործառույթներ, որոնք կարող են օգնել ձեզ:

Formula1 TEXT ֆունկցիա

TEXT (համար, «00…»)

Formula2 RIGHT ֆունկցիա

RIGHT («00…»&համար, երկարություն)

Formula3 BASE ֆունկցիա

ՀԻՄՆԱԿԱՆ (համար, 10, երկարություն)

Բանաձևում զրոների թիվը հավասար է թվի երկարությանը։

Այստեղ դուք սահմանում եք 4 նիշ որպես թվերի երկարություն, խնդրում ենք օգտագործել ստորև բերված բանաձևերը.

= TEXT (B10, "0000")

=RIGHT("0000"&B10,4)

=BASE (B10,10,4)

մամուլ Մտնել ստեղնը և ներքև քաշեք ավտոմատ լրացման բռնակը:

ուշադրությունԵթե ​​սկզբնական տվյալների երկարությունը գերազանցում է սահմանված երկարությունը, այն կցուցադրի սկզբնական տվյալները առանց սկզբնական զրոների:

---

Եթե ​​ցանկանում եք ֆիքսված երկարություն կազմելու համար թվերին ավելացնել հետին զրոներ, ենթադրելով B3:B7 բջիջի թվերին ավելացնելով հետին զրոներ՝ դրանք դարձնելով 5 նիշ երկարությամբ, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթում, կարող եք կիրառել բանաձև՝ աշխատանքը լուծելու համար: .

REPT ֆունկցիա

համարը&REPT("0",երկարությունը-LEN(համար))

Բանաձևում «թիվ» արգումենտը ներկայացնում է այն թիվը կամ բջիջի հղումը, որը ցանկանում եք ավելացնել հաջորդ զրոներ, իսկ «երկարություն» արգումենտը ձեր ուզած ֆիքսված երկարությունն է:

Խնդրում ենք օգտագործել բանաձևը հետևյալ կերպ.

=B3&REPT("0",5-LEN(B3))

մամուլ Մտնել բանալին և քաշեք ավտոմատ լրացման բռնիչը ներքև մինչև բջիջները, որոնց անհրաժեշտ է այս բանաձևը:

---

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

Այս խնդիրը լուծելու համար REPT ֆունկցիան կարող է ձեզ լավություն անել:

LEFT(տեքստ և REPT(" ", max_length), max_length)

Բանաձևում «տեքստ» արգումենտը տեքստն է կամ բջիջի հղումը, որը ցանկանում եք ավելացնել հետին տարածք, իսկ «max_length» արգումենտը ֆիքսված երկարությունն է, որը ցանկանում եք կազմել տեքստերը, որը պետք է լինի ավելի երկար կամ հավասար: օգտագործված տեքստերի առավելագույն երկարությունը:

B3:C6 բջիջի տեքստերին հետին տարածք ավելացնելու համար օգտագործեք հետևյալ բանաձևը.

=LEFT(B3 & REPT(" ",10),10)

մամուլ Մտնել բանալին, այնուհետև քաշեք ավտոմատ լրացման բռնակը բոլոր բջիջների վրա, որոնք անհրաժեշտ են այս բանաձևին:

Այս դեպքում, քանի որ օգտագործված տեքստից ամենաերկարը 9 նիշ է, այստեղ մենք օգտագործում ենք 10:

---

Երբեմն, դուք պետք է չակերտներ կամ փակագծեր ավելացնեք տեքստի կամ թվերի շուրջ բջիջներում, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթը, բացառությամբ մեկ առ մեկ ձեռքով մուտքագրելու, ահա Excel-ի երկու մեթոդ, որոնք կարող են արագ լուծել այն:

14.1 Ավելացրեք չակերտներ/փակագծեր՝ ըստ Format Cells-ի

---

Եթե ​​ցանկանում եք սկզբնական տվյալների մեջ չակերտներ ավելացնել տեքստի շուրջ, Excel-ի «Format Cells» ֆունկցիան կարող է օգնել ձեզ:

1. Ընտրեք այն բջիջները, որոնք ցանկանում եք ավելացնել չակերտներ, սեղմեք Ctrl + 1 ստեղները ՝ Ձևաչափել բջիջները երկխոսություն:

2. Մեջ Ձևաչափել բջիջները երկխոսություն, տակ Թիվ էջանիշ, ընտրեք Սովորություն ցուցակից կատեգորիա, ապա մուտքագրելու համար անցեք աջ բաժին "''" @ "''" մեջ Տիպ տեքստային տուփ: Սեղմել OK.

Ընտրված բջիջներում տեքստն ավելացվել է չակերտներով:

Եթե ​​ցանկանում եք տեքստի շուրջ փակագծեր ավելացնել, Format Cells երկխոսության Type textbox-ում օգտագործեք (@).

14.2 Ավելացրեք չակերտներ/փակագծեր՝ ըստ բանաձևերի

---

Բանաձևերը կարող են օգտագործվել նաև այլ բջիջների տեքստին չակերտներ ավելացնելու համար:

Օգտագործելով և միակցիչ

""""&տեքստ&""""

Or

char (34) & text&char (34)

Այս դեպքում, տեքստը B11 բջիջում, խնդրում ենք օգտագործել հետևյալ բանաձևերը.

""""&B11&""""

Or

=char(34)&B11&char(34)

մամուլ Մտնել ստեղնը և քաշեք ավտոմատ լրացման բռնիչը ներքև՝ բջիջները լրացնելու համար:

Եթե ​​ցանկանում եք տեքստի շուրջ փակագծեր ավելացնել՝ օգտագործելով որպես բանաձև "("&տեքստ&")".

14.3 Ավելացրեք չակերտներ/փակագծեր շուրջ VBA-ով

---

Եթե ​​Ձեզ անհրաժեշտ է VBA կոդ այս աշխատանքը լուծելու համար, ահա VBA-ն:

1. Մամուլ ալտ + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհան.

2. Այնուհետև բացվող պատուհանում սեղմեք Տեղադրել > Մոդուլներ դատարկ նոր մոդուլ տեղադրելու համար:

3. Պատճենեք և տեղադրեք VBA կոդի ներքևում նոր մոդուլում:

VBA. Տեքստերի շուրջ չակերտներ ավելացրեք

Sub addquotationmarksorbrackets()
'UpdatebyExtendOffice
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 = """" & Rng.Value & """"
Next
End Sub

ուշադրություն: կոդի սկրիպտում, """" & Rng.Value & """" ցույց է տալիս «» ավելացնել տեքստերի շուրջ, եթե ցանկանում եք փակագծեր () ավելացնել տեքստի շուրջ, փոխեք այն "(" & Rng.Value & ")".

4. Մամուլ F5 բանալին կամ կտտացնելը Վազում կոճակ  պատուհանում VBA կոդը ակտիվացնելու համար: Երկխոսություն է բացվում՝ չակերտներ ավելացնելու համար բջիջներ ընտրելու համար:

5: սեղմեք OK. Այժմ չակերտներն ավելացվել են ընտրված բջիջներում գտնվող տեքստերի շուրջ:

---

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

Գործ 1 ավելացնել տեքստ բանաձևից առաջ

«Այսօր «&TEXT(TODAY(),"dddd, mmmm dd") է:

Գործ 2-ից հետո ավելացրեք տեքստ ֆորմուլա

TEXT(NOW(),"HH:MM:SS")&" ընթացիկ ժամանակն է:"

Գործ 3 ավելացնել տեքստեր բանաձևի երկու կողմում

«Այսօր վաճառվել է «&data&» կգ».

---

Ավելի շատ Excel ձեռնարկներ.

Միավորել բազմաթիվ աշխատանքային գրքույկներ/աշխատանքային թերթիկներ մեկում Այս ձեռնարկը, որը թվարկում է գրեթե բոլոր համակցված սցենարները, որոնց կարող եք հանդիպել և տալիս է ձեզ համար հարաբերական մասնագիտական ​​լուծումներ: Բաժանել տեքստը, համարը և ամսաթվի բջիջները (առանձնացնել մի քանի սյունակների) Այս ձեռնարկը բաժանված է երեք մասի՝ բաժանված տեքստային բջիջներ, բաժանված թվային բջիջներ և բաժանված ամսաթվի բջիջներ: Յուրաքանչյուր մաս տալիս է տարբեր օրինակներ, որոնք կօգնեն ձեզ իմանալ, թե ինչպես վարվել բաժանման աշխատանքը, երբ բախվում եք նույն խնդրին: Միավորել բազմաթիվ բջիջների բովանդակությունը՝ առանց Excel-ում տվյալների կորստի Այս ձեռնարկը կրճատում է արդյունահանումը բջջի որոշակի դիրքի վրա և հավաքում է տարբեր մեթոդներ՝ օգնելու Excel-ում բջիջից տեքստ կամ թվեր հանել ըստ հատուկ դիրքի: Համեմատեք երկու սյունակ Excel-ի համընկնումների և տարբերությունների համար Այստեղ այս հոդվածը ներառում է երկու սյունակների համեմատման հնարավոր սցենարները, որոնք դուք կարող եք հանդիպել, և հուսով ենք, որ այն կարող է օգնել ձեզ: