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

Как да намерите и замените текст в коментари в Excel?

Автор: Техническа поддръжка Последна промяна: 2013-06-27

Както знаем, в excel има функция Find and Replace и с тази функция можем бързо да намерим и заменим съдържанието в клетките. Но можем ли да намерим и заменим съдържание в коментари в Excel?

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

За бързо и лесно намиране и замяна на текст в коментарите


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

Изглежда, че в Excel няма друг начин за решаване на този проблем, освен използването на VBA код, можете да използвате следния VBA код, за да намерите и замените текст във всички коментари. Например, ще заменя 2011 с 2012 във всички коментари в Excel.

1. Щракнете Софтуерен Инженер >Visual Basic, Нов Microsoft Visual Basic за приложения ще се покаже прозорец, щракнете Поставете > Модули и след това въведете следния VBA код в модула:

VBA: намиране и замяна на текст във всички коментари в Excel.

Sub ReplaceComments()
Dim cmt като коментар
Dim wks като работен лист
Dim sНамиране като низ
Dim sReplace като низ
Dim sCmt като низ
sFind = "2011"
sReplace = "2012"
За всяка седмица в ActiveWorkbook.Worksheets
За всеки cmt в wks.Comments
sCmt = cmt.Текст
Ако InStr(sCmt, sFind) <> 0 Тогава
sCmt = Application.WorksheetFunction. _
Заместване (sCmt, sFind, sReplace)
cmt.Текст Текст:=sCmt
крайна сметка, ако
Напред
Напред
Задайте wks = нищо
Задайте cmt = нищо
End Sub

Забележка: В горния код можете да зададете sНамери намлява sReplace променливи за това, което търсите и с какво искате да замените.

2, След това кликнете dpc-замени-коментар-1 бутон за изпълнение на кода и всички 2011 във всички коментари ще бъдат заменени с 2012 в цялата работна книга.


стрелка син десен балон Удобен инструмент за бързо и лесно намиране и замяна на текст в коментари

Можем бързо да намерим и заменим текст във всички коментари с Kutools за ExcelЕ Инструменти за коментари в клетка.

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

Ако сте инсталирали Kutools за Excel, можете лесно да намерите и замените текста във всички коментари в Excel.

1. Щракнете Kutools > Повече > Инструменти за коментари в клетка. Вижте екранна снимка:

doc-замени-коментар-2

2. В Инструменти за коментари в клетка диалогов прозорец:

  • (1.) Щракнете Намерете/Заменете раздел;
  • (2.) Изберете обхвата, който искате да приложите тази помощна програма, можете да изберете Активен лист or Всички листове;
  • (3.) Въведете текста (2011), който искате да замените в Намерете текст в коментарите и въведете конкретния текст (2012), който искате да използвате в Заменете със кутия.

doc-замени-коментар-3

3, И после щракнете върху Сменете бутон. Цялата 2011 ще бъде заменена с 2012 в коментарите в активния работен лист. Вижте екранни снимки:

doc-замени-коментар-4 -2 doc-замени-коментар-5

Забележка: Ако сте проверили Показване на резюме, ще има поле за подкана, което да ви напомня колко коментара в клетката са били променени.

За по - подробна информация за Инструменти за коментари в клетка, Моля, посетете Описание на функциите на Cell Comment Tools.


Още по темата:

Най-добрите инструменти за продуктивност в офиса

🤖 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!
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