Excel VBA编程 替换数据

Excel VBA编程替换数据

Excel VBA的替换功能可以将查找到的文字替换为指定内容，从而更有效的修改文档。本节介绍如何使用VBA中的Replace方法，替换单元格中的指定数据。

语法：表达式.Replace(What, Replacement, LookAt, SearchOrder, MatchCase, MatchByte, SearchFormat, ReplaceFormat)

其中，Replace方法的参数功能如表16-2所示。

表16-2 Replace参数功能表

注意每次使用此方法后，参数LookAt、SearchOrder、MatchCase 和MatchByte 的设置都将被保存。如果下次调用此方法时不指定这些参数的值，就使用保存的值。要避免出现这一问题，每次使用此方法时请明确设置这些参数。

例如，将表格中的所有“北区”文字替换为“北关区”文字。替换所进行的区域为工作表Sheet1中的A列，其代码如下

Sub 替换数据()

Worksheets("Sheet1").Columns("A").Replace _

What:="北区", Replacement:="北关区", _

SearchOrder:=xlByColumns, MatchCase:=True

End Sub

运行上面的代码，即可将工作表中的“北区”文字替换为“北关区”文字，效果如图16-3所示。

图16-3 替换数据

替换