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函数。
0
投稿猜你喜欢
1、点击左下角“开始”按钮点击运行，或者直接按下“WIN+R”快捷键，打开运行对话框，输入“regedit”命令，单击确定。- 怎么将Win10电脑开始菜单的风格改成win7的风格？相信许多用户现在使用的电脑操作系统都是Win10电脑操作系统，可是许多用户在使用的过程
- 不论是否对含有数字的单元格应用了文本格式，Excel都会将数字保存为数字数据。若要使Excel将类似零件号码的数字解释为文本，首先应将空白单
- 一般来说，计算机的颜色是校准的，但不可避免地会有错误，今天小边教你如何校准win10计算机颜色，调整合适的显示颜色是非常关键的，这将影响我们
- 我们在用WORD写文档的时候也通常会想法设法把文档做的漂漂亮亮的，比如说好好的排个版面，插入个图片什么的，可是插入的图片边缘颜色太明显，该怎
- 在Word文档中我们可以根据自己的实际需要设置想要的文本效果，比如我们可以在文字中间加一横得到删除线的效果，设置右上角或后下角的小数字样式，
- 如果我们在使用微软操作系统时想重新安装我们的计算机，我们需要下载我们需要的操作系统。然后对于西红柿花园的纯win10系统，很多朋友不知道从哪
- 步骤一、选择需要转换为列的行区域首先打开相应的工作表，选择需要转为列的行单元格区域，如图所示： 步骤二、复制选中的
- 人们在制作Word文档的时候，经常会遇到需要给部分重要的文字添加批注的情况，必要的时候还要给批注加密，这两项操作具体有哪些步骤呢?下面小编为
- 现在电子版的试题越来越多，为了更好的复习考试很多人都会选择将试卷里的答案去掉后再做试题有助于筛选自己不会的题目，也有助于更好的复习功课。下面
- Win10怎么用键盘打出下划线？许多小伙伴在编辑文字的时候都需要使用一些特殊的符号，而下划线就是众多符号之一，许多电脑的初学者都不知道如何使
- 办公中，少不了使用word，今天给大家分享下word页眉横线怎么去掉的操作方法，一起来看看吧！1、删除页眉横线Ctrl+shift+N：点击
- 默认情况下，Word文档中的文字都是横向显示的，但对于一些特殊的文档，需将文字竖向排版，如何快速设置呢？方法分别有两种：1、点击【插入】-【
- 最近发现，以前存了很多图片在word，但图片的很大，有的很小，规格都不一样，堆在文档里面很难看，为了美观，下面给大家分享Word中利用宏批量
- 可能有的同学安装了office 2013 办公软件，可是字体大小没有以前熟悉的大一、大二字号，而是显示多少磅值的大小，那么Word2013数
- 在中文版式中，我们的每一个段落的首行都会缩进两个字符，既为了区分段落，也是为了阅读的方便和视觉的优化。那在word文档中，我们该怎样让每一个
- 怎么批量导出Word文档中所有图片1、打开要导出图片的Word文档，单击“文件”按钮，选择“另存为”，然后在计算机中选择一个存放
- 如果你想要把自己的Win10版本进行升级，其实系统会自动给用户推送新版本更新消息，前提是你没有吧系统的推送非关闭。看到退送的新版本，点击就可
- 在前面的教程中，我们已经知道了Word中，段落不是只有一个样式的，它还可以新建样式。那么，接下来呢，小编要说的是在Word中如何修改样式，这
- 默认情况，word2007提供了多种剪贴画文字环绕方式，如“四周型环绕”、“紧密型环绕”、“上下型环绕”和“穿越型环绕”等方式。
