Як знайти та замінити верхній або нижній колонтитул у Excel?
To find a specific value and then replace with another value in Excel is common in our daily work, but in Excel, the Find and Replace function works well in selection, sheets and workbook, but cannot find and replace in header and footer. In this article, I introduce a macro code to find and replace values in header and footer.
Знайдіть і замініть у верхньому або нижньому колонтитулі VBA
Знайдіть і замініть у верхньому або нижньому колонтитулі VBA
1. Увімкніть аркуш, який ви хочете знайти та замініть у верхньому та нижньому колонтитулі, натисніть Alt + F11 клавіші, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. клацання Insert > Модуліі вставте нижче модуля код VBA. Дивіться знімок екрана:
VBA: знайти та замінити у верхньому та нижньому колонтитулі
Sub FnR_HF()
'UpdateByExtendoffice20160623
Dim xStr As String, xRep As String
'Const csTITLE As String = "Find and Replace"
On Error Resume Next
xStr = Application.InputBox("Replace what", "Kutools for Excel", , , , , 2)
If xStr = "" Then Exit Sub
xRep = Application.InputBox("With what", , "Kutools for Excel", , , , , 2)
With ActiveSheet.PageSetup
' Substitute Header/Footer values
.LeftHeader = Application.WorksheetFunction.Substitute(.LeftHeader, xStr, xRep)
.CenterHeader = Application.WorksheetFunction.Substitute(.CenterHeader, xStr, xRep)
.RightHeader = Application.WorksheetFunction.Substitute(.RightHeader, xStr, xRep)
.LeftFooter = Application.WorksheetFunction.Substitute(.LeftFooter, xStr, xRep)
.CenterFooter = Application.WorksheetFunction.Substitute(.CenterFooter, xStr, xRep)
.RightFooter = Application.WorksheetFunction.Substitute(.RightFooter, xStr, xRep)
End With
End Sub
3. Потім натисніть F5 клавішу для запуску коду, після чого з’явиться діалогове вікно для введення тексту, який потрібно знайти. Дивіться знімок екрана:
4. клацання OK, а ще одне діалогове вікно вискакує, щоб ввести текст, яким ви хочете замінити. Дивіться знімок екрана:
5. клацання OK. Тепер значення "KTE" були замінені на "Kutools for Excel" у верхньому та нижньому колонтитулі.
Чайові: Якщо ви хочете працювати над цілою книгою, ви можете використовувати код макросу нижче.
Sub FnR_HF()
'UpdateByExtendoffice20171122
Dim I As Long
Dim xStr As String, xRep As String
'Const csTITLE As String = "Find and Replace"
On Error Resume Next
xStr = Application.InputBox("Replace what", "Kutools for Excel", , , , , 2)
If xStr = "" Then Exit Sub
xRep = Application.InputBox("With what", , "Kutools for Excel", , , , , 2)
For I = 1 To ActiveWorkbook.Sheets.Count
With Sheets(I).PageSetup
' Substitute Header/Footer values
.LeftHeader = Application.WorksheetFunction.Substitute(.LeftHeader, xStr, xRep)
.CenterHeader = Application.WorksheetFunction.Substitute(.CenterHeader, xStr, xRep)
.RightHeader = Application.WorksheetFunction.Substitute(.RightHeader, xStr, xRep)
.LeftFooter = Application.WorksheetFunction.Substitute(.LeftFooter, xStr, xRep)
.CenterFooter = Application.WorksheetFunction.Substitute(.CenterFooter, xStr, xRep)
.RightFooter = Application.WorksheetFunction.Substitute(.RightFooter, xStr, xRep)
End With
Next
End Sub
Найкращі інструменти продуктивності офісу
Підтримує Office/Excel 2007-2021 та 365 | Доступний на 44 мовах | Легко повністю видалити
Kutools for Excel Має понад 300 функцій, Переконайтеся, що те, що вам потрібно, знаходиться лише на відстані одного кліка...
Перезарядіть свій Excel Навички: Відчуйте ефективність, як ніколи раніше Kutools for Excel (Повнофункціональна 30-денна безкоштовна пробна версія)
Office Tab Надає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкнути редагування та читання з вкладками Word, Excel, Штепсельна розетка, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Підвищує вашу продуктивність на 50% і зменшує кількість клацань мишкою щодня! (Повнофункціональна 30-денна безкоштовна пробна версія)
