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

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

  • Excel中怎么将两列单元格中的数据合并

    Excel中怎么将两列单元格中的数据合并

    电脑版Excel软件被很多人使用,用来编辑数据等,有的用户在编辑数据时,想要合并Excel中两列单元格中的数据,但是却不知道如何合并,那么小编就来为大家介绍一下吧.具体如下:1.第一步,双击或者右击打 ...

  • 如何在电脑版excel中合并两个单元格中的内容

    如何在电脑版excel中合并两个单元格中的内容

    电脑版Excel软件被很多人使用,用来编辑数据等,有的用户在使用该软件时,想要合并两个单元格中的内容,但是却不知道如何合并,那么小编就来为大家介绍一下吧.具体如下:1.第一步,双击或者右击打开wps软 ...

  • 怎么在Excel中把两列单元格中的内容合并到一起

    怎么在Excel中把两列单元格中的内容合并到一起 操作方法 01 首先找到桌面上的Excel表格 02 打开Excel表格 03 比如我们在第一列单元格中输入一些信息 04 再在另一列单元格中输入相应 ...

  • Excel中如何用“&”符合并两个单元格中的数据

    我们在用Excel制作表格时,有时候会需要合并两个单元格中的数据.今天,小编就来教大家用"&"符合并数据 操作方法 01 首先,我们打开电脑,找到Excel2010 02 ...

  • wps表格中两个单元格中的内容如何批量合并？

    我们平时都会使用到办公软件,那么你知道如何合并多个单元格的内容吗?下面我们就来快速的学习下小技巧 一.合并单元格内容 01 打开我们需要处理的表格,可以看到文字都是分别存放在两个单元格内. 02 选择 ...

  • Excel表格中自定义数字格式如何实现隐藏单元格中的一些重要数据?

    Excel表格中的数据,在某些特殊情况下是不希望被他人看到,没办法为了保密起见只能将其隐藏,而且需要隐藏的不是全部而是部分重要数据,针对这个问题,不知道大家有什么好的解决方法呢?如果你还没有的话,那么 ...