Excel表格中使用vba宏帮你按条件拆分两个单元格中的数字
时间:2023-11-11 17:09:40
Excel工作表的A1单元格和B1单元格中有两个数字,这两个数字有一部分相同。
Excel工作表的A1单元格和B1单元格中有两个数字,这两个数字有一部分相同,现在要找出其中相同的数字并写入单元格C1,找出A1中有而B1中没有的数字并写入单元格D1,找出B1中有而A1中没有的数字并写入单元格E1。
如下面的工作表图片:
![Excel表格中使用vba宏帮你按条件拆分两个单元格中的数字](https://img.aspxhome.com/file/2023/2/43052_0.jpg)
我不知道给出的数字是否都是按这样的规律,即第一个原始数据的后面几位数与第二个原始数据的前面几位数相同。如果是这个规律的话,则可以就这个具体的例子给出下面的代码来实现:
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)
猜你喜欢
百度商桥如何设置开头问候语?设置开头问候语的方法
![](https://img.aspxhome.com/file/2023/7/a332238_0s.jpg)
详解win10正式版最新三大功能
![](https://img.aspxhome.com/file/2023/3/a296254_0s.png)
Win10电脑加速技巧
![](https://img.aspxhome.com/file/2023/5/a315853_0s.png)
win10系统下怎样让Html文本框不可编辑
![](https://img.aspxhome.com/file/2023/5/a314356_0s.jpg)
Pixelmator Pro下载地址,Mac Pixelmator Pro特色功能介绍
![](https://img.aspxhome.com/file/2023/2/a213692_0s.jpeg)
WPS表格怎么使用冻结窗口功能
升级iOS16 Beta4了吗?iOS16 Beta4升级反馈汇总
wps怎么免费下载房屋租赁合同模板?
![](https://img.aspxhome.com/file/2023/4/a165614_0s.jpg)
win10找不到网络路径 0x80070035错误该怎么办?
![](https://img.aspxhome.com/file/2023/5/a316008_0s.jpg)
Win10专业版怎么快速退出工作组?Win10专业版快速退出工作组方法
![](https://img.aspxhome.com/file/2023/3/50333_0s.png)
如何实现office 2016和office visio 2016同时安装包你一次成功
![](https://img.aspxhome.com/file/2023/4/16594_0s.png)
WPS表格技巧—快速删除所有负数
win10更新的补丁在哪?win10怎么查看安装的补丁
![](https://img.aspxhome.com/file/2023/30/a265183_0s.jpg)
Win10如何关闭更新后任务栏资讯?Win10关闭更新后任务栏资讯方法
![](https://img.aspxhome.com/file/2023/26/a221438_0s.png)
全新设计的MacBook Pro笔记本,将拥有SD卡插槽和HDMI接口
![](https://img.aspxhome.com/file/2023/0/a208260_0s.jpeg)
mac免费CAD模型设计软件FreeCAD怎样设置中文模式
![](https://img.aspxhome.com/file/2023/4/a212824_0s.jpeg)
怎么使用绝地求生大跳工具 绝地求生大跳工具使用教程
![](https://img.aspxhome.com/file/2023/8/a336593_0s.png)
如何制作macOS Monterey启动U盘
wps文字怎么设置文字打印
Win10打开D盘提示没有权限怎么办?Win10打开D盘提示没有权限的解决方法
![](https://img.aspxhome.com/file/2023/26/a220790_0s.png)