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

Ինչպե՞ս գտնել և փոխարինել տեքստը Excel- ի մեկնաբանություններում:

Ինչպես գիտենք, Excel- ում կա Փնտրել և Փոխարինել գործառույթը, և այս գործառույթով մենք կարող ենք արագ գտնել և փոխարինել պարունակությունը բջիջներում: Բայց կարո՞ղ ենք Excel- ում գտնել և փոխարինել բովանդակության մեկնաբանություններում պարունակվող բովանդակությունը:

Մեկնաբանությունների ներսում տեքստը գտնելու և փոխարինելու համար օգտագործելով VBA կոդ

Մեկնաբանություններում արագ և հեշտ գտնելու և փոխարինելու համար տեքստը


նետ կապույտ աջ պղպջակ Մեկնաբանությունների ներսում տեքստը գտնելու և փոխարինելու համար օգտագործելով VBA կոդ

Excel- ում, կարծես, այս խնդիրը լուծելու այլ տարբերակ չկա, բացի VBA կոդն օգտագործելուց, բոլոր մեկնաբանություններում տեքստը գտնելու և փոխարինելու համար կարող եք օգտագործել հետևյալ VBA կոդը: Օրինակ, Excel- ի բոլոր մեկնաբանություններում ես 2011 թվականը կփոխարինեմ 2012-ով:

1: Սեղմեք Երեվակիչ >Visual Basic, նոր Microsoft Visual Basic հավելվածների համար պատուհանը կցուցադրվի, կտտացրեք Տեղադրել > Մոդուլներ և ապա մուտքագրեք հետևյալ VBA կոդը Մոդուլում.

VBA. Գտնել և փոխարինել տեքստը Excel- ի բոլոր մեկնաբանություններում:

Sub ReplaceComments ()
Dim cmt Որպես մեկնաբանություն
Խայտաբղետները ՝ որպես աշխատանքային թերթ
Dim sFind As String
Dim s Փոխարինել որպես տող
Dim sCmt As String
sFind = "2011"
sReplace = "2012"
ActiveWorkbook.Worksheets- ում յուրաքանչյուր wks- ի համար
Յուրաքանչյուր սմ-ի համար wks. Մեկնաբանություն
sCmt = cmt. Տեքստ
Եթե ​​InStr (sCmt, sFind) <> 0 Ապա
sCmt = Application.WorksheetFunction: _
Փոխարինող (sCmt, sFind, sReplace)
cmt. Տեքստի տեքստը ՝ = sCmt
Վերջ: Եթե
հաջորդ
հաջորդ
Սահմանել wks = Ոչինչ
Սահմանել cmt = Ոչինչ
Վերջ Sub

Նշում: Վերոնշյալ ծածկագրում կարող եք սահմանել s Գտեք և s Փոխարինեք փոփոխականներ այն բանի համար, ինչ դուք փնտրում եք և ինչով եք ուզում փոխարինել:

2. Այնուհետեւ կտտացրեք dpc- փոխարինել-մեկնաբանություն -1 Կոդը գործարկելու կոճակը, և ամբողջ 2011 թ. բոլոր մեկնաբանություններում ամբողջ աշխատանքային գրքում կփոխարինվի 2012 թ.


նետ կապույտ աջ պղպջակ Հարմար գործիք t. Մեկնաբանությունների ներսում տեքստը արագ և հեշտորեն գտնելու և փոխարինելու համար

Մենք կարող ենք արագ գտնել և փոխարինել տեքստը բոլոր մեկնաբանություններում ՝ Excel- ի համար նախատեսված գործիքներ'S Բջջային մեկնաբանության գործիքներ.

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

Եթե ​​Kutools- ը տեղադրել եք Excel- ի համար, կարող եք հեշտությամբ գտնել և փոխարինել տեքստը Excel- ի բոլոր մեկնաբանություններում:

1: Սեղմեք Կուտոլս > ավելի շատ > Բջջային մեկնաբանության գործիքներ, Տեսեք,

doc- փոխարինել-մեկնաբանություն -2

2, Մեջ Բջջային մեկնաբանության գործիքներ երկխոսության տուփ:

  • (1.) Կտտացրեք Գտեք / փոխարինեք էջանիշ;
  • (2.) Ընտրեք այն շրջանակը, որը ցանկանում եք կիրառել այս օգտակար ծրագիրը, կարող եք ընտրել Ակտիվ թերթիկ or Բոլոր թերթերը;
  • (3.) Մուտքագրեք այն տեքստը (2011), որը ցանկանում եք փոխարինել այն Գտեք տեքստը մեկնաբանություններում տուփը և մուտքագրեք հատուկ տեքստ (2012), որը ցանկանում եք օգտագործել այն Փոխարինել տուփ:

doc- փոխարինել-մեկնաբանություն -3

3. Եվ այնուհետեւ կտտացրեք Փոխարինել կոճակ Ակտիվ աշխատանքային թերթի մեկնաբանություններում ամբողջ 2011 թվականը կփոխարինվի 2012 թվականով: Տեսեք սքրինշոթերը.

doc- փոխարինել-մեկնաբանություն -4 -2 doc- փոխարինել-մեկնաբանություն -5

ՆշումԵթե ​​ստուգել եք Ցույց տալ ամփոփագիրը, կգտնվի արագ տուփ ՝ հիշեցնելու համար, թե քանի բջջային մեկնաբանություն է փոխվել:

Մասին ավելի մանրամասն տեղեկություններ ստանալու համար Բջջային մեկնաբանության գործիքներ, Խնդրում ենք այցելել Բջջային մեկնաբանության գործիքների առանձնահատկության նկարագրություն.


Առնչվող հոդվածներ քանակը:

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

🤖 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!
This comment was minimized by the moderator on the site
I did it, change these 3 lines of the code above like below, Chr(10) is the key change:

If InStr(sCmt, Chr(10)) <> 0 Then

sCmt = Application.WorksheetFunction. _

Substitute(sCmt, Chr(10), sReplace)
This comment was minimized by the moderator on the site
I did it, change these 3 lines of the code above as below, Chr(10) is the key change!

If InStr(sCmt, Chr(10)) <> 0 Then

sCmt = Application.WorksheetFunction. _

Substitute(sCmt, Chr(10), sReplace)
This comment was minimized by the moderator on the site
How to replace line break in comments?
This comment was minimized by the moderator on the site
The above code turns the whole comment to bold. Normally only the title is bold in an Excel comment by default. The below code fixes the problem. Sub ReplaceComments() Dim cmt As Comment Dim wks As Worksheet Dim sFind As String Dim sReplace As String Dim lTitleLength As Long Dim sCmt As String sFind = "2011" sReplace = "2014" For Each wks In ActiveWorkbook.Worksheets For Each cmt In wks.Comments sCmt = cmt.Text If InStr(sCmt, sFind) 0 Then sCmt = Application.WorksheetFunction. _ Substitute(sCmt, sFind, sReplace) cmt.Text Text:=sCmt End If lTitleLength = InStr(cmt.Text, ":") With cmt.Shape.TextFrame .Characters(1, lTitleLength).Font.Bold = True .Characters(lTitleLength + 1, Len(cmt.Text)).Font.Bold = False End With Next Next Set wks = Nothing Set cmt = Nothing End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations