Excel表格中使用vba宏帮你按条件拆分两个单元格中的数字

　　Excel工作表的A1单元格和B1单元格中有两个数字，这两个数字有一部分相同，现在要找出其中相同的数字并写入单元格C1，找出A1中有而B1中没有的数字并写入单元格D1，找出B1中有而A1中没有的数字并写入单元格E1。

　　如下面的工作表图片：

　　我不知道给出的数字是否都是按这样的规律，即第一个原始数据的后面几位数与第二个原始数据的前面几位数相同。如果是这个规律的话，则可以就这个具体的例子给出下面的代码来实现：

　　Sub SeparateNumber()

　　Dim strFirst As String

　　Dim strResult As String

　　Dim StartNum As Integer

　　Dim EndNum As String

　　Dim i As Integer, j As Integer

　　strFirst = Left(Range(”B1″), 1)

　　StartNum = InStr(1, Range(”A1″), strFirst)

　　j = 1

　　For i = StartNum To Len(Range(”A1″))

　　EndNum = Mid(Range(”A1″), i, 1)

　　If EndNum = Left(Range(”B1″), j) Then

　　j = j + 1

　　End If

　　Next i

　　If j > 1 Then

　　strResult = Mid(Range(”A1″), StartNum, i - 1)

　　End If

　　‘单元格C1中的数据

　　Range(”C1″).Value = strResult

　　‘单元格D1中的数据

　　Range(”D1″).Value = Left(Range(”A1″), StartNum - 1)

　　‘单元格E1中的数据

　　Range(”E1″).Value = Right(Range(”B1″), Len(Range(”B1″)) - j)

　　End Sub

　　代码很简单，只是运用了几个VBA函数。

　　讨论：

　　其实代码可以进一步简化，因为VBA还有一个数组函数(Split函数)。

　　如果要将其变为通用的，则可将上述代码转化为自定义函数，并用相对量代替代码中的硬编码。

　　两个单元格中的数字如果不是按上面提到的规律，则可能两个单元格中的数字中间部分相同，而其它部分不同;或者一个单元格中的数字结尾部分和另一个单元格中的数字的中间部分相同;等等。

IT时代网(关注微信公众号ITtime2000，定时推送，互动有福利惊喜)所有原创文章版权所有，未经授权，转载必究。
创客100创投基金成立于2015年，直通硅谷，专注于TMT领域早期项目投资。LP均来自政府、互联网IT、传媒知名企业和个人。创客100创投基金对IT、通信、互联网、IP等有着自己独特眼光和丰富的资源。决策快、投资快是创客100基金最显著的特点。