按条件拆分Excel表格两个单元格中的数字

有朋友要求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)

相关推荐

  • Excel表格中使用vba宏帮你按条件拆分两个单元格中的数字

    Excel工作表的A1单元格和B1单元格中有两个数字，这两个数字有一部分相同，现在要找出其中相同的数字并写入单元格C1，找出A1中有而B1中没有的数字并写入单元格D1，找出B1中有而A1中没有的数字并 ...

  • Excel表格中vba宏帮助你按条件拆分两个单元格中的数字

    Excel工作表的A1单元格和B1单元格中有两个数字，这两个数字有一部分相同，现在要找出其中相同的数字并写入单元格C1，找出A1中有而B1中没有的数字并写入单元格D1，找出B1中有而A1中没有的数字并 ...

  • 电脑EXCEL表格如何在单元格中添加斜线将文字进行划分

    电脑EXCEL表格如何在单元格中添加斜线将文字进行划分

    Excel表格是我们现在经常需要使用的办公软件,我们有的时候需要制作表头,那么今天小编跟大家分享 的是电脑EXCEL表格如何在单元格中添加斜线将文字进行划分.具体如下:1. 首先我们在手机中打开Exc ...

  • 如何在excel表格的合并单元格中换行

    如何在excel表格的合并单元格中换行

    我们在编辑Excel表格的时候,想要在合并单元格中换行,该怎么操作呢?今天就跟大家介绍一下如何在excel表格的合并单元格中换行的具体操作步骤.1. 首先打开电脑上的Excel表格,进入编辑页面后,将 ...

  • Excel如何快速提取单元格中的数字

    Excel是我们很多人经常会使用到的图表制作软件,那么在使用的过程中如何快速提取单元格中的数字呢?方法很简单,下面就和小编一起来看看吧. 操作方法 01 打开一个Excel表格,教程以图表数据为例.提 ...

  • Excel表格中vba宏按条件拆分两个单元格中的数字

    有朋友要求Excel工作表的A1单元格和B1单元格中有两个数字，这两个数字有一部分相同，现在要找出其中相同的数字并写入单元格C1，找出A1中有而B1中没有的数字并写入单元格D1，找出B1中有而A1中没 ...

  • 如何将EXCEL表格里一个单元格的数据拆分为两列

    如何将EXCEL表格里一个单元格的数据拆分为两列单元格呢? 操作方法 01 制作一个excel表,如图: 02 选中这一列,点击数据工具栏下的"分列" 03 在其他选项中选择分割符 ...

  • Excel 表格怎么把单元格的內容拆分出來

    把文本复制进Excel表格里有时会出现数据同时在一个单元格内.Excel 表格怎么把单元格的內容拆分出來?这边以WPS Office软件给大家示范. 操作方法 01 打开表格. 02 选择需要拆分内容 ...

  • excel表格如何合并单元格有没有快捷键呢

    excel表格如何合并单元格有没有快捷键呢

    我们在使用excel的时候经常会遇到需要合并单元格的情况,那么excel表格如何合并单元格?有没有快捷键可以更方便呢?在这里,小编告诉大家,没有合并单元格的快捷键.但是有两种鼠标合并单元格的方法.第一 ...