示例：

如图所示，该表为某公司商品编码。由于商品目录升级，现商品编码中以“GXGY”的所有记录统一更换为“GXGYA”，该如何通过VBA批量实现？

商品编码	替换结果
GXGY023	GXGYA023
GXGY024	GXGYA024
QDJC022	QDJC022
qdjc023	qdjc023
QDJC028	QDJC028
SBCS001	SBCS001
GXGY025	GXGYA025
SBKY002	SBKY002
SBKY003	SBKY003
SBLG001	SBLG001
SBQG001	SBQG001
SBKY001	SBKY001
JXBL001	JXBL001
JXBL002	JXBL002
GXGY032	GXGYA032
GXGY016	GXGYA016
GXGY027	GXGYA027
GXGY017	GXGYA017
GXGY028	GXGYA028
GXGY029	GXGYA029
GXGY030	GXGYA030
GXGY033	GXGYA033
GXGY031	GXGYA031
QDQG005	QDQG005
GXXJ006	GXXJ006
SBBJHY001	SBBJHY001
SBBJHY002	SBBJHY002

实现代码

Option ExplicitSub 批量替换字符()Dim RowN As LongFor RowN = 2 To Cells(Rows.Count, "A").End(xlUp).RowCells(RowN, "B").Value = Replace(Cells(RowN, "A").Value, "GXGY", "GXGYA")Next
End Sub

Replace函数

本例使用Replace函数来替换文本（字符串）中的指定文本，其语法为

Replace(expression,find,replace[,start[,count[,compare]]])

参数expression为文本类型，表示需要替换哪个文本中的字符。
参数find为文本类型，表示需要替换的字符。
参数replace为文本类型，表示需要替换成的字符。
参数start为整型，表示在expression中搜索的开始位置，默认为1。
参数compare为字符串的比较方式，当该参数省略时，则比较方式为Option Compare语句所指定的比较方式。

本例需要将单元格中的“GXGY”字符替换成“GXGYA”，则可以将参数expression设置为单元格的值，参数find设置为“GXGY”，参数replace设置为“GXGYA”。其余参数默认，则
表示从第1位开始替换所有的字符。

单元格对象的Replace方法

单元格的Replace方法可以用来批量替换单元格的内容，相当于执行工作表中替换的基本操作，其语法为

Rng.Replace (What,Replacement,[LookAt ],[SearchOrder],[MatchCase],[MatchByte],[ SearchFormat],[ReplaceFormat]

参数What为所要查找的文本。
参数Replacement为所要替换的文本。
参数LookAt为单元格匹配方式，可以为xIWhole（匹配整个单元格）或xIPart（匹配部分）。
参数SearchOrder为搜索的顺序，可以为xIByRows（按行查找）或xIByColumns（按列查找）。
参数MatchCase为大小写匹配方式，True表示区分大小写，False表示不区分。
参数MatchByte表示半全角匹配方式，True表示区分半全角，False表示不区分。
参数SearchFormat表示查找匹配格式，True表示匹配格式，False表示无须匹配。当需要替换格式时，可以使用Application. SearchForma设置所要查找的格式。
参数ReplaceFormat表示替换格式，True表示匹配格式，False表示无须匹配。当需要替换格式时，可以使用Application. ReplaceFormat设置所要替换的格式。

使用Replace方法实现代码

Sub 批量替换字符1()Dim RowN As LongRowN = Cells(Rows.Count, "A").End(xlUp).Row'复制A列到B列Range("A2:A" & RowN).Copy Range("B2")Range("B2:B" & RowN).Replace "GXGY", "GXGYA"
End Sub

Excel 2010 VBA 入门 048 批量替换文本中的指定字符(replayce函数和方法)相关推荐

Excel 2010 VBA 入门 047 判断某文本中是否包含指定字符（Instr）
示例如图所示,该表为某公司采购清单.由于在记录时并未标记供应商来源地,只能通过E列供应商名称中寻找.现需要筛选出所有上海的供应商采购记录,该如何用VBA实现? 商品编码入库日期部门业务员供应 ...
Excel 2010 VBA 入门 031 批量生成上标
目录 Characters对象 Font对象的Superscript属性设置Characters对象Font的注意事项 Characters属性的通用性示例 Characters对象 Charac ...
Excel 2010 VBA 入门 033 批量合并相同的单元格
目录 Range的Merge方法合并单元格 VBA运行时关闭警告多行中相同的内容处理示例: Range的Merge方法合并单元格单元格对象的Merge方法可以用来合并相邻的单元格区域,使之成为一 ...
Excel 2010 VBA 入门 040 批量删除空行
目录示例: 实现代码1: 单元格删除Delete方法单元格删除的通用算法实现代码2 利用Union获取整个单元格区域进行统一操作 Union方法的注意事项单元格插入Insert方法示例: 如 ...
Unity中实现批量替换字符串中的指定字符
code using System.Collections.Generic; using UnityEngine;public class ReplaceStr : MonoBehaviour {// ...
Excel 2010 VBA 入门 034 创建图片批注
目录批注(Comment)对象批注的添加与删除 FiIIFormat对象 OnError语句示例: 批注(Comment)对象 Comment对象是单元格的一个属性,表示单元格的批注.Comme ...
python如何替换文件部分内容_python 实现批量替换文本中的某部分内容
一.介绍在做YOLOv3项目时,会需要将文本文件中的某部分内容进行批量替换和修改,所以编写了python程序批量替换所有文本文件中特定部分的内容. 二.代码实现 import re import o ...
python一键替换_python 实现批量替换文本中的某部分内容
一.介绍在做YOLOv3项目时,会需要将文本文件中的某部分内容进行批量替换和修改,所以编写了python程序批量替换所有文本文件中特定部分的内容. 二.代码实现 import re import o ...
Excel 2010 VBA 入门 036 替换所有的错误值
目录 Range对象的Find方法参数省略表示法查找格式示例: 实现代码使用Is Nothing判断对象是否初始化 IsError函数 SpeciaICells方法 Find方法的一般形式 C ...

Excel 2010 VBA 入门 048 批量替换文本中的指定字符(replayce函数和方法)

示例：

实现代码

Replace函数

单元格对象的Replace方法

使用Replace方法实现代码

Excel 2010 VBA 入门 048 批量替换文本中的指定字符(replayce函数和方法)相关推荐

最新文章

热门文章