Excel表格中vba宏帮助你按条件拆分两个单元格中的数字
发布时间：2023-12-14 06:39:13
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函数)。
如果要将其变为通用的，则可将上述代码转化为自定义函数，并用相对量代替代码中的硬编码。
两个单元格中的数字如果不是按上面提到的规律，则可能两个单元格中的数字中间部分相同，而其它部分不同;或者一个单元格中的数字结尾部分和另一个单元格中的数字的中间部分相同;等等。
0
投稿猜你喜欢
手机版WPS Office使用教程是什么？很多用户对于WPS Office手机版还不知道如何使用，怎么使用手机版WPS Office，手机版- 制作各种各样的表格，当我们在表格当中输入百分比的时候，如果觉得文字的百分比不够清晰明了，不能直观的表现出数据的变化，该怎么办呢，今天我们就来
- 分享利用“制表符”(Tab键）进行一键对齐的小技巧。以下面这篇样例作为示范，首先，按下键盘上的“Tab”键将需要对齐的内容分隔开来，发现由于
- CF穿越火线是腾讯经营的一款射击游戏，人气十分的高，三亿鼠标的射击梦想，那么电脑的虚拟内存该怎么设置才能让这款高人气的游戏达到更好的画质呢，
- 苹果在2023年度开发者大会（WWDC）上推出了M2 系列的全新处理器M2 Ultra，并发布了3 款 Mac 产品，包括15英寸MacBo
- 有很多数据处理办公软件，wps和Excel，这是人们在日常工作中经常接触到的两种软件。在使用它们的过程中，可能会有问题。例如，在一张表中输入
- 有不少显卡高级玩家都会在win10系统电脑中组sli。但是现在有些用户反馈自己在设置成功后，一打开sli电脑就会出现蓝屏、死机的情况，怎么办
- 今天凌晨微软唐娜姐公开预告将推送新的Win10 RS2预览版14905，不过有用户反映网友在商店应用更新时遭遇了0x80073cf9错误，那
- 一些用户在使用音频设备的时候，系统提示未安装音频设备，导致无法正常使用音频设备，因为用户是第一次遇到这种情况，所以不知道要怎么解决，下面教给
- ①启动Word，输入文字，选中文字，然后单击菜单栏--引用，脚注标签里面的脚注和尾注按钮。 ②弹出脚注和尾注对话框
- 日常使用win10系统经常需要格式化硬盘以便更好地傅磁盘，微软内置Windows PowerShell，帮助我们格式化磁盘，不知win10系
- 近日，《财富》（中文版）正式发布“2017年最受赞赏的中国公司排行榜”，荣膺前三的为阿里巴巴、百度、海尔。该榜单调研的候选公司共336家，主
- Win10专业版系统电脑游戏玩家们平时在玩游戏的时候，会出现卡顿的现象，电脑内存还比较充足，这就不知道应该怎么办了，其实广大玩家们并不必苦恼
- MAC电脑黑屏Shift-Control-Option 键和开关键可以恢复，macz小编告诉大家具体操作方法如下：1、首先关闭电脑；2、将电
- 如何给windows7系统清理磁盘？如何清理windows7系统磁盘？今天跟大家分享一下这个方法。在Windows 7系统下进行磁盘清理的方
- Win11 wifi功能消失了只有以太网的解决方法，最近有很多用户都反映自己的win11系统出现wifi功能消失了只有以太网这个问题，那么当
- pqmagic分区魔术师怎么扩大c盘？pqmagic分区魔术师能够在不丢失硬盘中已有数据的前提下对硬盘进行重新分区、格式化分区、仿制分区、移
- WPS 2012文档怎么编号WPS 2012是一款很不错的办公软件，那么WPS 2012文档怎么编号?小编来告诉你!1、输入如下图所示文字。
- 作为微软开发的命令行外壳程序和脚本环境，PowerShell可以使命令行用户和脚本编写者可以利用 .NET Framework的强大功能，且
- 神漫画怎么开通免费卡？如果想要在神漫画看一些热门的漫画，要开通免费卡才能进行观看，那么我们该怎么开通免费卡呢？下面就给大家分享神漫画开通免费
