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函数)。
如果要将其变为通用的，则可将上述代码转化为自定义函数，并用相对量代替代码中的硬编码。
两个单元格中的数字如果不是按上面提到的规律，则可能两个单元格中的数字中间部分相同，而其它部分不同;或者一个单元格中的数字结尾部分和另一个单元格中的数字的中间部分相同;等等。
推荐系统
雨林木风 winxp下载 纯净版 永久激活 winxp ghost系统 sp3 系统下载
64位系统大小：0MB系统类型：WinXP雨林木风在系统方面技术积累雄厚深耕多年，打造了国内重装系统行业知名品牌，雨林木风WindowsXP其系统口碑得到许多人认可，积累了广大的用户群体，是一款稳定流畅的系统，雨林木风 winxp下载 纯净版 永久激活 winxp ghost系统 sp3 系统下载，有需要的朋友速度下载吧。
系统等级：进入下载 >萝卜家园win7纯净版 ghost系统下载 x64 联想电脑专用
64位系统大小：0MB系统类型：Win7萝卜家园win7纯净版是款非常纯净的win7系统，此版本优化更新了大量的驱动，帮助用户们进行舒适的使用，更加的适合家庭办公的使用，方便用户，有需要的用户们快来下载安装吧。
系统等级：进入下载 >雨林木风xp系统 xp系统纯净版 winXP ghost xp sp3 纯净版系统下载
64位系统大小：1.01GB系统类型：WinXP雨林木风xp系统 xp系统纯净版 winXP ghost xp sp3 纯净版系统下载，雨林木风WinXP系统技术积累雄厚深耕多年，采用了新的系统功能和硬件驱动，可以更好的发挥系统的性能，优化了系统、驱动对硬件的加速，加固了系统安全策略，运行环境安全可靠稳定。
系统等级：进入下载 >萝卜家园win10企业版 免激活密钥 激活工具 V2023 X64位系统下载
64位系统大小：0MB系统类型：Win10萝卜家园在系统方面技术积累雄厚深耕多年，打造了国内重装系统行业的萝卜家园品牌，(win10企业版,win10 ghost,win10镜像),萝卜家园win10企业版 免激活密钥 激活工具 ghost镜像 X64位系统下载,其系统口碑得到许多人认可，积累了广大的用户群体，萝卜家园win10纯净版是一款稳定流畅的系统,一直以来都以用户为中心，是由萝卜家园win10团队推出的萝卜家园
系统等级：进入下载 >萝卜家园windows10游戏版 win10游戏专业版 V2023 X64位系统下载
64位系统大小：0MB系统类型：Win10萝卜家园windows10游戏版 win10游戏专业版 ghost X64位 系统下载，萝卜家园在系统方面技术积累雄厚深耕多年，打造了国内重装系统行业的萝卜家园品牌，其系统口碑得到许多人认可，积累了广大的用户群体，萝卜家园win10纯净版是一款稳定流畅的系统,一直以来都以用户为中心，是由萝卜家园win10团队推出的萝卜家园win10国内镜像版，基于国内用户的习惯，做
系统等级：进入下载 >windows11下载 萝卜家园win11专业版 X64位 V2023官网下载
64位系统大小：0MB系统类型：Win11萝卜家园在系统方面技术积累雄厚深耕多年，windows11下载 萝卜家园win11专业版 X64位 官网正式版可以更好的发挥系统的性能，优化了系统、驱动对硬件的加速，使得软件在WINDOWS11系统中运行得更加流畅，加固了系统安全策略，WINDOWS11系统在家用办公上跑分表现都是非常优秀，完美的兼容各种硬件和软件，运行环境安全可靠稳定。
系统等级：进入下载 >
热门系统
- 1微软最新版win10 LTSC X64位 纯净版系统 windows10 LTSC 系统下载
系统大小：4.4GB系统类型：Win10 - 2雨林木风Win11游戏版系统下载 windows11 64位游戏专用版本V2021
系统大小：4.38GB系统类型：Win11 - 3微软Win11系统 64位 正式版Ghost Windows11镜像 2022.05
系统大小：4.55GB系统类型：Win11 - 4深度技术 Windows7 纯净版64位下载 v2021.09
系统大小：3.9GB系统类型：Win7 - 5大地系统 Win11精简稳定版 GHOST镜像 X64位 V2022.06下载
系统大小：4.7GB系统类型：Win11
推荐软件
热门文章
常用系统
- 1系统之家win7纯净旗舰版 x64位经典版下载 ghost系统下载 联想电脑专用
系统大小：0MB系统类型：Win7 - 2电脑公司win10纯净版下载 免激活工具 x64位系统下载 GHOST镜像
系统大小：0MB系统类型：Win10 - 3技术员联盟Win11纯净版 x64尝鲜装机版下载 免激活工具 ghost镜像下载
系统大小：0MB系统类型：Win11 - 4深度技术年度经典推出Win11稳定版 最新Win11系统 ghost ISO镜像 X64位
系统大小：4.68GB系统类型：Win11 - 5windows10稳定版下载 大地系统64位系统 免激活工具 GHOST镜像下载
系统大小：0MB系统类型：Win10 - 6雨林木风windows11中文版免激活 ghost镜像 V2022.04下载
系统大小：4.53GB系统类型：Win11 - 7番茄花园win10完美版 x86旗舰版下载 Ghost系统镜像 免激活密钥下载
系统大小：0MB系统类型：Win10 - 8大地系统x64位典藏版 win10旗舰版下载 GHOST镜像 联想笔记本专用下载
系统大小：0MB系统类型：Win10 - 9Windows11无病毒大神版下载 永久免费 萝卜家园x64位游戏版下载 v2023
系统大小：0MB系统类型：Win11
渝公网安备50010702505324号