返回目录：excel表格制作
Are You Replace?你被替换了吗?没错，PDF帝小编今天要跟大家分享的内容就是“Replace”这个词语，在英语上，它就是一个很简单的英语单词，但是在Excel函数中，它可就没那么简单咯。下面就随小编一起来看一看吧!
一、Replace函数用法
=Replace(old_text,start_num,num_chars，new_text)
要替换字符串，开始位置，替换数量，新文本
二、Replace函数讲解
1、替换数量可为0，即在开始位置，新文本增加
2、新文本输入""时，代表将需要替换数量文本删除
3、替换数量不为0，即对指定数量文本修改
3、新文本注意使用双引号进行引用
三、Replace函数实例
实例1：15位身份证号变18位
表格中部分为15位，部分为18位，需要全部转换成18位身份证号
解答步骤
背景：
15位身份证号和18位身份证号的区别在于
1、15位出生年份省略了19
2、15位最后一位无识别码
思路：
1、判断字符串为15位数
2、在15位身份证号第7位开始插入19>>>相关阅读：这些函数公式都和身份证有关?
3、连接末位识别码
过程：
1、将求识别码的自定义函数复制到VBA的模块中
Function ids(A As Range)
Dim i As Integer '定义i变量
Dim c As Integer '定义c变量
Dim b, bb As Variant '定义b,bb变量，赋值为数组
b = Array(7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2)
For i = 1 To 17
c = Int(Mid(A, i, 1))
ids = ids + c * b(i - 1)
Next i
bb = Array("1", "0", "X", "9","8", "7", "6", "5", "4","3", "2", "1")
ids = ids Mod 11 ‘取余数
ids = bb(ids) '返回函数的值
End Function
2、将15位身份证号插入19在数据存储在处理过程
B2=if(len(a2)=15,replace(a2,7,0,"19"),a2)
3、将15位身份证号的识别码算出
B3=if(len(B2)=17,ids(B2),"")
4、前17位和最后一位连接
B4=B2&B3
得到最后的结果：
实例2：手机号码末位4位隐藏
=replace(a1,8,4,"****")
实例3：去除省份的省字
=replace(a1,3,1,"")
以上就是小编跟大家分享的全部内容了，希望大家会喜欢吧!>>>相关阅读：3分钟Get身份证全部信息
更多精彩内容敬请关注PDF帝