今日的内容是“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。其中第四套是对第一套的视频讲解，所以第一和第四只选其一即可。