《VBA经典应用69例》（版权10178981），是我推出的第九套教程，教程是专门针对初级、中级学员在学习VBA过程中可能遇到的案例展开，这套教程案例众多，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中要利用好VBA。本套教程共三册六十九个专题，今日内容：VBA经典应用69例应用7：从字符串的左侧或者右侧删除指定长度的字符
【分享成果，随喜正能量】说谎说多了，信的不是别人，而是自己。。
应用7 利用VBA，从字符串中删除字符我们这个专题的内容是字符串String的处理，在我的各套教程中一直把字符串处理作为一项非常重要的知识点来讲解。对于VBA语言而言，字符串操作是编程中的关键技能。VBA 开发人员的技能水平通常取决于他操纵字符串的程度。Excel 在数学操作方面非常强大，但文本操作却需要我们具有一定的创造力和经验。
在本专题中，我将向展示如何从字符串中删除字符，学习如何通过替换、左、右、修剪和 Instr函数功能来处理它们。
3 从字符串的左侧或者右侧删除指定长度的字符我们继续研究删除字符的各种情况，这个应用场景是在给定字符串的左侧和右侧删除给定长度的字符，如某个ID号类似于“X123456789”，我们需要从左侧删除一个字符，这种情况下我们可以利用Right函数；再比如，类似于”01234567K”数据，我们需要从右侧删除最后的一个字符，这种情况下我们可以利用Left函数。对于这两个函数，比较简单，我就不再讲解了，直接讲解我给出的实例。
实例四：从字符串的左侧或者右侧删除指定长度的字符如下面的截图界面:
在A列有一系列的数据，我们要删除左侧第一个字符放在B列，删除右侧最后一个字符放在C列,下面我将利用Righth函数和Left函数来完成，代码如下：
Sub mynzD()
Dim myCell As Range
Dim MyRange As Range
Dim tmp As String
'指定数据区域
Set MyRange = Range("A2:A9")
'遍历循环提取字符串
For Each myCell In MyRange.Cells
tmp = myCell.Value
'提取右侧 Len(tmp) - 1个字符
myCell.Offset(0, 1).Value = ""
myCell.Offset(0, 1).Value = "'" & Right(tmp, Len(tmp) - 1)
'提取左侧 Len(tmp) - 1个字符
myCell.Offset(0, 2).Value = ""
myCell.Offset(0, 2).Value = "'" & Left(tmp, Len(tmp) - 1)
Next
End Sub
代码截图：
代码的讲解：
① myCell.Offset(0, 1).Value = "'" & Right(tmp, Len(tmp) - 1)与myCell.Offset(0, 2).Value = "'" & Left(tmp, Len(tmp) - 1) 这两句代码在前面均有 "'" ，这是为了以文本格式进行回填数据的需要。
② 去掉源数据最左边的字符用的是右截取；去掉源数据最右边的字符用的是左截取，截取的长度是“总长度-1”。
最后我们看一下代码的运行效果：
待续
本讲内容参考程序文件：应用007.xlsm
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
