鲁达 今日的内容是“VBA之EXCEL应用”的第九章“字符串（String）的操作”。这讲是第三节“分离字符串的操作”。这套教程从简单的录制宏开始讲解，一直到窗体的搭建，内容丰富，案例众多。大家可以非常容易的掌握相关的知识，这套教程面向初学人员，共三册，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家能掌握利用。
第三节 分离字符串的操作
大家好，我们这节将给大家介绍字符串操作函数的一些具体应用，以利用大家对字符串函数的理解和操作。这讲的应用是分离字符串的操作。所谓分离字符串就是将某个字符串按照固定的格式分开，这对于我们熟悉EXCEL操作的人员来说，类似于分列操作。
1 分离字符串的应用场景
我们看下面的工作表界面：
在上面的截图中，A列有一系列的用逗号分隔的字符串，我们要利用字符串中的逗号把字符串分隔开，放入随后的两个单元格中。其实这种操作是非常有用的，虽然这种操作我们还可以用split函数来解决，但直接用left和right函数也是我们写代码时经常采用的方案。那么如何实现这种操作呢？我们看下面的思路分析。
2 实现分离字符串的思路分析
我们先来看一下A列单元格的字符，如“小张，小李”，我们注意到这种字符串的结构是以中间的“，”来分隔的，那么只要我们能确定这个逗号在整个字符串中的位置，然后利用左右截取函数，分别截取逗号之前的字符和逗号之后的字符即可以实现这个目的。
那么如何确定这个逗号在字符串中的位置呢？这里要用到的就是instr函数，当这个函数的返回值不是0的时候，就可以确定这个位置了，如果为0，就是代码没有找到逗号，这个时候要有预案处理，不然会影响查询的顺利进行。
思路的扩展：如果我们需要拆分的字符串中要根据多个分隔符来拆分，该如何处理呢？这个问题也好解决，只要规则一定，VBA就会有办法实现，利用循环一层层地拆分，就可以实现了。如果规则不固定呢？只要能明确所拆的字符串中的拆分标识符号，同样也是可以实现的。大家有兴趣的话，可以参考我的另一部教程《VBA信息获取与处理》，其中Split函数的扩展介绍总结的各种方案。
3 分离字符串的代码及代码解读
我们先来看下面的代码部分：
Sub mynzC() '分离字符串的操作
Dim myName As String
i = 1
Do While Cells(i, 1) <> ""
Cells(i, 2) = ""
Cells(i, 3) = ""
t = 0
myName = Cells(i, 1).Value
t = InStr(myName, "，")
If t > 0 Then
Cells(i, 2).Value = Left(myName, t - 1)
Cells(i, 3).Value = Right(myName, Len(myName) - t)
End If
i = i + 1
Loop
End Sub
代码截图：
代码解读：
1）Dim myName As String 声明用于装载被拆分字符串的变量
2） Cells(i, 2) = ""
Cells(i, 3) = ""
将拆分后要回填的区域清空。
3） t = 0
这行代码是给t赋初始值，t在代码中是用于存储逗号位置的变量，这个初始值为零的设置可以提高我们程序的可读性，它的意义是每次循环之前将这个位置归零，如果我们不赋这个初始值的话，程序的运行也是没有问题的。
4）myName = Cells(i, 1).Value
这是在每次循环的时候给myName变量的赋值。
5）t = InStr(myName, "，") 取得逗号分隔符的位置
6）if t > 0 Then
….
End If
此处是一个判断语句，对逗号出现的位置进行判断，如果这个位置是存在的，才执行拆分的操作。如果不存在逗号，那么不执行拆分的操作。
7）Cells(i, 2).Value = Left(myName, t - 1) 利用左截取函数获得逗号左边字符串
8）Cells(i, 3).Value = Right(myName, Len(myName) - t) 利用右截取函数获得逗号右边字符串。
4 分离字符串的代码及代码解读
最后，我们看一下代码的运行结果：
上面的截图可以看出，A列的数据被以逗号为分隔符进行了拆分，当没有找到逗号的时候，是没有进行拆分操作的。
今日内容回向：
1） 如何实现字符串按某个符号进行拆分？
2） 如何获得拆分符号的位置？
3） 练习：下面的截图中存在有两个拆分标识符号“逗号”，如何实现拆分？实现的方法有多种，大家可以把代码发给我，我看一下.
本讲内容参考程序文件：工作簿09.xlsm
分享成果，随喜正能量
VBA的应用及学习方法：
VBA是利用Office实现个人小型办公自动化的有效手段（工具）。这是我对VBA的应用界定。在取代OFFICE新的办公软件没有到来之前，谁能在数据处理方面做到极致，谁就是王者。其中登峰至极的技能非VBA莫属！
我记得20年前自己初学VBA时，那时的资料甚少，只能看源码自己琢磨,真的很难。20年过去了，为了不让学习VBA的朋友重复我之前的经历，我根据自己多年VBA实际利用经验，推出了七部VBA专门教程。
第一套：VBA代码解决方案 是VBA中各个知识点的讲解，教程共147讲，覆盖绝大多数的VBA知识点，提供的程序文件更是一座不可多得的代码宝库，是初学及中级人员必备教程；目前这套教程提供的版本是修订第二版，程序文件通过32位和64位两种OFFICE系统测试。
第二套：VBA数据库解决方案 数据库是数据处理的专业利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，适合中级人员的学习。目前这套教程提供的是修订第一版教程，程序文件通过32位和64位两种OFFICE系统测试。
第三套：VBA数组与字典解决方案 数组和字典是VBA的精华，字典是VBA代码水平提高的有效手段，值得深入的学习，是初级及中级人员代码精进的手段。目前这套教程提供的版本是修订第一版，程序文件通过32位和64位两种OFFICE系统测试。
第四套：VBA代码解决方案之视频 是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。这套教程是第一套教程（修订一版）的视频讲解，视频更易接受。
第五套：VBA中类的解读和利用 这是一部高级教程，讲解类的虚无与肉身的度化，类的利用虽然较少，但仔细的学习可以促进自己VBA理论的提高。这套教程的领会主要是读者的领悟了，领悟一种佛学的哲理。目前这套教程提供的版本是修订第一版，程序文件通过32位和64位两种OFFICE系统测试。
第六套教程：VBA信息获取与处理，这是一部高级教程，涉及范围更广，实用性更强，面向中高级人员。教程共二十个专题，包括：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪切板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。
第七套教程：VBA之EXCEL应用 这是一部初级教程这部教程共三册，从从创建宏、对话框、工作簿和工作表对象、单元格对象等基础内容讲起，到循环结构、错误处理、字符串操作、日期和时间、事件、数组应用，函数过程等方面，一直讲解到控件和窗体对象的应用都是我们提高自己EXCEL水平的必须。
以上各教程学习顺序：7→1(或者4)→3→2→6→5。其中第四套是对第一套的视频讲解，所以第一和第四只选其一即可。