按条件拆分Excel表格两个单元格中的数字
时间:2022-11-24 05:23:34
有朋友要求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函数)。
如果要将其变为通用的,则可将上述代码转化为自定义函数,并用相对量代替代码中的硬编码。
两个单元格中的数字如果不是按上面提到的规律,则可能两个单元格中的数字中间部分相同,而其它部分不同;或者一个单元格中的数字结尾部分和另一个单元格中的数字的中间部分相同;等等。
有兴趣的朋友可以继续研究。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
i5处理器可以装Win11系统吗?
![](https://img.aspxhome.com/file/2023/27/a234685_0s.jpg)
excel表格数字求和的方法
装了Win10系统很卡?深度系统建议你试试一键加速
![](https://img.aspxhome.com/file/2023/4/a313137_0s.jpg)
Win7开机提示密码已过期的解决方法
![](https://img.aspxhome.com/file/2023/3/a299582_0s.jpg)
excel使用求积公式的方法
word修改页码的时候各页页码一起变怎么更改?
![](https://img.aspxhome.com/file/2023/30/a268827_0s.png)
u盘无法创建文件夹介质受写入保护怎么解除?
![](https://img.aspxhome.com/file/2023/30/a267028_0s.jpg)
Win10 UWP应用里的广告无法屏蔽怎么办?
![](https://img.aspxhome.com/file/2023/26/a224743_0s.jpg)
Mac操作指南:如何将Mac仪表盘里的Widget小工具放到桌面?
![](https://img.aspxhome.com/file/2023/1/a203581_0s.jpeg)
PS如何将图片变清晰?PS将图片变清晰的方法
![](https://img.aspxhome.com/file/2023/7/a327948_0s.jpg)
word怎么删除最后一页空白页
联想扬天V14酷睿版笔记本安装win7系统教程
![](https://img.aspxhome.com/file/2023/30/a264162_0s.png)
Win7旗舰版蓝屏0x000000ce自动重启要怎么解决?
![](https://img.aspxhome.com/file/2023/26/a229402_0s.png)
lightroom classic使用教程:如何在lightroom classic中还原预设?
![](https://img.aspxhome.com/file/2023/7/a202557_0s.jpeg)
电脑主板坏了值得修吗_电脑主板坏损坏修理抉择教程
![](https://img.aspxhome.com/file/2023/2/a284560_0s.jpg)
Win8突然停止工作时修复的方法
![](https://img.aspxhome.com/file/2023/2/a287042_0s.jpg)
电脑玩LOL的配置要求是什么?LOL电脑配置检测方法
![](https://img.aspxhome.com/file/2023/6/a326377_0s.jpg)
Word中怎么设置合并字符效果
![](https://img.aspxhome.com/file/2023/7/31637_0s.png)
Excel vba窗体最小化最大化无边框的设置代码
IE浏览器一直提示没有可用的Internet连接的解决办法
![](https://img.aspxhome.com/file/2023/3/a295196_0s.jpg)