Excel 如何按文字格式查找替換工作表內容，這個方法幫你實現

查找替換是一個強大的功能,，特別是在很多數據表當中對某一個特定類型的數據進行查找,，不可能一個一個人工查看，如果這么做了,，那就說明一個道理,，有些人只能用笨辦法工作，而如果掌握了某些技巧之后,，一切都將變得輕松自如,。

本節(jié)介紹一個強大的查找替換方法，可以達到事半功倍的效果,。

查找替換代碼方法為：Replace(),是Range對象之下的一個方法,。

語法和參數如下圖介紹，可以仔細查看,。

下圖為本節(jié)示例,，未進行查找替換之前的表格狀態(tài)。

下面要查找出字號為11,，字體為“微軟雅黑”,，背景顏色ColorIndex = 22的單元格，進行替換,。

替換格式為：字號為18,，字體為“仿宋”,，背景顏色ColorIndex = 8

如下圖所示：

一些單元格字號變大了,，字體和背景顏色也變更了，這就實現了對相關格式的單元格查找和替換操作,。

過程就這樣,，重點分析一下代碼：

Private Sub ChangeStyle()

Dim cell As Range

Set cell = ActiveSheet.UsedRange

'cell.Interior.ColorIndex = 22

With Application.FindFormat '設置要查找格式

With .Font

.Size = 11

.Name = "微軟雅黑"

End With

.Interior.ColorIndex = 22

End With

With Application.ReplaceFormat '設置替換格式

With .Font

.Size = 18

.Name = "仿宋" '

End With

.Interior.ColorIndex = 8

End With

cell.Replace "", "", , , , , True, True '執(zhí)行查找替換

End Sub

整個思路就是，首先設置要找什么,，然后設置替換成什么,，第三步執(zhí)行調用Replace方法。

1. Application.FindFormat

2. Application.ReplaceFormat

3. RangeObject.Replace "", "", , , , , True, True '執(zhí)行查找替換

Replace中的引號（“”）和逗號（,，）都不能省略,，如果想要省略使用如下代碼：

RangeObject.Replace what:="", Replacement:="", SearchFormat:=True, ReplaceFormat:=True

其中RangeObject是一個Range對象變量,。

復雜的問題，簡單地處理,，這就是VBA帶給我們的好處,，只有輕松地實現難以解決的問題，那么還有什么理由不學習VBA呢,！