按条件拆分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函数)。
如果要将其变为通用的,则可将上述代码转化为自定义函数,并用相对量代替代码中的硬编码。
两个单元格中的数字如果不是按上面提到的规律,则可能两个单元格中的数字中间部分相同,而其它部分不同;或者一个单元格中的数字结尾部分和另一个单元格中的数字的中间部分相同;等等。
有兴趣的朋友可以继续研究。
猜你喜欢
- 系统当中存放着太多的文件资料,有时候需要用到win10系统的搜索功能,通过该功能我们能够很迅速的找到我们想要找到的文件资料,在使用这个功能的
- 单位教务部门拿来Excel两张工作表,要把“成绩表”中成绩列数据复制到“学生基本信息表”成绩列中。我对照了两个表,发现几个难点(如图)。 &
- 许多用户在遇到一些电脑问题的时候,都会选择进入到安全模式中进行解决。而对于一些新手用户来说,完全不知道怎么进入到电脑的安全模式,那么今天小编
- 许多下载win10系统的小伙伴发现,在下载并解压缩正式的win10操作系统原始ISO文件后,您将看到两个安装程序.exe这两个文件的功能是什
- 一:office365有必要值得买吗?微软的Office产品线有两条,一条是Office 365;一条是目前的Office2019。offi
- 大家有没有使用过Win10系统中的注册表编辑器regedit来修改过系统功能?使用过的小伙伴都知道这个操作有多好用。但还有小伙伴不知道怎么打
- 今天跟大家分享的是在word2007文档中大号的空心字如何设置的方法,有需要的同学来学习下吧,比如大家要设置元旦或春节的海报啊什么的应该用得
- 在Word文档中我们有时候可能会需要统计一些数据,或者收集一些信息,这种情况下我们就可以在Word文档中插入Excel表格,并且插入之后我们
- WPS默认是有自动备份的,赶紧找找备份管理(查看方式:界面左上角--“WPS文字”按钮--“备份管理”)和历史记录(界面左上角“WPS文字”
- 今年的 WWDC 20 上,苹果宣布了 AirPods 耳机的新功能,包括 iPhone、iPad 和 Mac 设备间的自动切换,以及 Ai
- ①启动Word2010,单击菜单栏--审阅--比较--比较。 ②弹出比较文档对话框,打开原文档和修订的文档,单击确
- 一、将工作簿保存为工作区要通过工作区打开工作簿,首先需要将要一次性打开的工作簿保存为工作区(.xlw)类型,其具体操作如下:步骤01、打开需
- 在使用办公软件时,文件的格式有许多种。那么,在我们遇到要将Doc、Docx文件转换成PDF的情况,我们该怎么办呢?今天,就由小编告诉各位如何
- 打印Word文档做资料的时分,为了节省纸张,经常要把A4纸一面打印两页内容,双面打印后,做成书籍。依照Word自带的双面打印功用,打印出来的
- 当您使用 iPhone 中的 iMessage 信息与好友对话时,如果需要查找图片、链接或附件,不必从历史消息从逐个查找。以下是快速查找的方
- 我们在使用word2013文档中,编辑封面会被加上页码,但是有的朋友编辑的时候封面不需要页码,碰到这种情况要怎么处理呢?今天,小编就简单跟大
- 怎么拆分pdf文件?有一个很大的pdf文件,只需要用到其中的一部分内容,该怎么将这部分内容拆分出来呢?今天我们就来看看不需要第三方软件将pd
- 在升级安装了win10操作系统后,有一些小伙伴可能会遇到系统蓝屏问题。系统保护提示有时也会在蓝屏后显示。所以对于这个问题,小编认为我们可以尝
- PDF文档的体积比较大时,传送和存档都非常不方便,特别是当文档中有很多图片的情况下,那么怎样才能减小PDF文档的大小呢?在这里教大家一种十分
- 最近很多朋友都在问win10键盘关机的快捷键在哪里。有了这个快捷键,真的方便多了。我们有四种方法可以用键盘关机。所以,怎样去寻找?其实这个很