在Excel VBA中单独字符串
下面我们就来看看在Excel VBA程序分隔字符串。
现状：
将工作表上的一个命令按钮并添加以下代码行：
1.首先，我们声明一个称为String类型，被叫Integer类型的commaposition变量全名变量，和被叫类型整数的变量i。
Dim fullname As String, commaposition As Integer, i As Integer
我们面对的问题是，我们需要告诉Excel VBA中，我们希望将字符串分隔。在史密斯的情况下，麦克逗号是6位，而在威廉姆斯的情况下，珍逗号位于位置9
2.我们使用循环在Excel中输入的每个名称执行的操作。首先，我们初始化变量全名。接下来，我们使用Instr函数来查找逗号的位置。
For i = 2 To 7 fullname = Cells(i, 1).Value commaposition = InStr(fullname, ",")
3.最后，我们要写入逗号B列，并在逗号列C.您可以通过添加行实现这一目标的前面部分后的部分：
Cells(i, 2).Value = Mid(fullname, commaposition + 2) Cells(i, 3).Value = Left(fullname, commaposition - 1)
MID（全名，commaposition + 2）意味着我们要全名的部分开始在字符“commaposition + 2”（这正是名字）。
左（全名，commaposition – 1）意味着我们要全名的一部分从头开始，直到字符“commaposition- 1”（这正是姓）。
4.不要忘记关闭循环。
Next i
5.添加一个逗号和空间范围分隔六个名字（“A2：A7”）。
6.测试程序。
结果：
