Excel表格中vba宏按条件拆分两个单元格中的数字
发布时间:2023-05-26 23:46:14
有朋友要求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函数。
猜你喜欢
- 在日常的工作中,我们经常会遇到这样一种情况:把一个纯文字的word放在PPT中。有的是工作汇报,有的是毕业论文,有的是课程教案,不得不说,布
- 据 Wine 官方博客,Wine 6.1 版本已正式发布。本次带来了针对 VKD3D 1.2 版本的升级,还优化支持了 在 M1 Mac 上
- 说起知聊的这款软件,相信大家应该不陌生吧。你们知道如何在知聊中发布知聊吗?不知道在在知聊中发布知聊的小伙伴,就跟着小编一起往下看看吧。方法步
- 在Word 2016中,文本的输入有改写和插入两种模式。进行文档编辑时,如果需要在文档的任意位置插入新的内容,可以使用插入模式进行输入。以下
- 我们有时候会因为电脑出现了系统的问题而需要进入到电脑的安全模式中,不过有的小伙伴还不清楚安全模式下如何修复电脑,那么Win10安全模式下要如
- 微软会经常更新一些系统补丁来修复系统中发现的问题,而有的用户更新了最新的Win10系统更新的时候,出现了错误代码0x800f081f,导致没
- 使用Word输入英文单词时,首字母基本都是默认小写,再输入是会有点麻烦,那么Word首字母大写怎么弄?小编猜测大家都应该很想知道方法吧?所以
- 有部分Win10用户遇到了系统无法记住桌面图标排列方式和位置的问题,每次登录系统后桌面图标都会被重新排列,此时可通过以下方法来解决。•首先按
- 在对Word文档进行排版时,经常会要求对同一个文档中的不同部分采用不同的版面设置,例如要设置不同的页面方向、页边距、页眉和页脚,或重新分栏排
- 苹果手机深受小伙伴们的喜爱,但遗憾的是它一直都没有可以分屏的功能,没法同时使用两个软件,那么这次的ios14有没有更新此功能呢?一起来看看吧
- word 2010有时选择页面纸张大小时会发现没有A3的选项这可能是因为word2010当前所选打印机不支持A3,可以点击文件菜单中的&qu
- 工作中,进行相关的数据分析,或相关的市场调查,首先要明确分析或调查目的和内容,然后进行数据的收集、分析、撰写报告、呈报,透过数据分析、发现机
- 隐藏恢复方法一:在wps的右上角,除了关闭、最大化和最小化,还有一个按钮,找到这个按钮然后点击,就可以恢复隐藏恢复方法二: 直接双击菜单文字
- 我们经常使用的usb分为很多种类的,常见的2.0和3.0有什么区别呢?一般是速率上不同,然后外观也有一定的不同,以及USB的插口引脚有不同,
- Windows 10最吸引人的地方之一便是全新的微软Edge浏览器。不过对于用户来说,默认的Bing搜索太弱,那么如何更换其它搜索引擎呢?步
- 为了方便管理数据,我们在使用wps表格的时候,可能需要在其中创建组来实现,下面就让小编告诉大家在wps表格中如何创建组。在wps表格中创建组
- 如何用福昕pdf编辑器给pdf文件添加水印?福昕pdf编辑器是一个十分强大的PDF文件编辑工具。我们可以用它给pdf文件添加水印,具体该怎么
- 在Excel表格中对数据进行筛选时,有时会遇到需要根据多个条件进行筛选的情况,如在学生档案表中筛选出籍贯为成都的女生。下面就介绍Excel中
- 我们有时候使用word或者Excel的时候,会发现文件上面的功能区的菜单栏不见了,那么我们该如何解决这种问题呢?解决方法如下:1、在电脑上打
- 相信有不少朋友已经用上了最新的Win11操作系统,大家想知道新系统对于截图功能有没有什么变化,想知道截图的快捷键是什么,或者说是有哪几种快速