【分享成果，随喜正能量】有人说，人生就是一场场告别，但也不全然都是忧伤。有些告别，是永远结束；而有些，是新的开始。正是在舍得与不舍得之间，我们才更加懂得珍惜，明白"再见"和"再也不见"。。

《VBA经典应用69例》，是我推出的第九套教程，教程是专门针对初级、中级学员在学习VBA过程中可能遇到的案例展开，这套教程案例众多，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中要利用好VBA。本套教程共三册六十九个专题，今日内容是教程的应用7：从给定的字符串中删除指定个数的字符

应用7 利用VBA，从字符串中删除字符

我们这个专题的内容是字符串String的处理，在我的各套教程中一直把字符串处理作为一项非常重要的知识点来讲解。对于VBA语言而言，字符串操作是编程中的关键技能。VBA 开发人员的技能水平通常取决于他操纵字符串的程度。Excel 在数学操作方面非常强大，但文本操作却需要我们具有一定的创造力和经验。

在本专题中，我将向展示如何从字符串中删除字符，学习如何通过替换、左、右、修剪和 Instr函数功能来处理它们。

实例二：不区分大小写替换

为了完成不区分大小写的替换，我们可以在上述代码的基础上做一次改进，这种改进思路是非常简单的，替换分两次进行，先替换小写，再替换大写。下面看我给出的代码：

Sub mynzB()

Dim myInput As String

Dim temInput As String

Dim myRemove As String

Dim myResult As String

myInput = "aabbccAABBCC"

myRemove = "b"

'从输入字符串中删除所有出现的"b"

temInput = Replace(myInput, LCase(myRemove), "")

'从中间结果中删除所有出现的"B"

myResult = Replace(temInput, UCase(myRemove), "")

MsgBox myResult

End Sub

代码截图：

代码讲解：

1）'从输入字符串中删除所有出现的"b"

temInput = Replace(myInput, LCase(myRemove), "")

以上代码是删除小写的字符。

2） '从中间结果中删除所有出现的"B"

myResult = Replace(temInput, UCase(myRemove), "")

以上代码是删除大写的字符，此处要注意用的是Replace(temInput, UCase(myRemove), "")，不要用错。

代码的输出结果：

结果仍是符合我们预期的。

2 从给定的字符串中删除指定个数的字符

我们继续延伸一下这种删除字符的操作，这里我们要研究的是在给定的字符串中如何删除指定个数的字符，这种操作就是要利用上面语法中的后半部分了，我们再来回顾一下Replace语法：

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

这个语法中的后半部分中的参数count 指的就是要删除字符串的个数，我们来看一下这个参数的具体用法。

实例三：删除指定个数的字符

这个实例中，我们将在字符串"aabbccaabbcc"中删除前三个"b"字符，在代码的书写中只需指定参数count为3即可，我们预期输出的结果为"aaccaabcc"。下面看我给出的代码：

Sub mynzC()

Dim myInput As String

Dim myRemove As String

Dim myResult As String

myInput = "aabbccaabbcc"

myRemove = "b"

'从输入字符串中删除前3个出现的“b”

myResult = Replace(myInput, myRemove, "", , 3)

MsgBox myResult

End Sub

代码截图：

代码的讲解：Replace(myInput, myRemove, "", , 3) 这句代码在书写的时候注意要留出start参数的位置。Replace(myInput, myRemove, "", , 3)。

代码的运行结果：

以上代码是符合我们预期的。

(待续)

本讲内容参考程序文件：应用007.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】其实每一朵花,都有它自己的生命。当花儿枯萎的时候,就是它生命终结的时候，面它的种子，就是它生命的延续，在这个世界上继续承受风，经受雨面对另一个轮回。。