按条件拆分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函数)。    如果要将其变为通用的,则可将上述代码转化为自定义函数,并用相对量代替代码中的硬编码。    两个单元格中的数字如果不是按上面提到的规律,则可能两个单元格中的数字中间部分相同,而其它部分不同;或者一个单元格中的数字结尾部分和另一个单元格中的数字的中间部分相同;等等。    

有兴趣的朋友可以继续研究。



~

excel怎么拆分一个单元格为两个
答:Excel中内置有通用,货币,数字,百分比,文本类型.。而第三方表格控件往往会有更丰富的单元格类型,比如Spread会支持18种单元格类型(Mask型,按钮型,复选框型,组合框型,图形型等等)。拆分单元格是把一个单元格拆分成两个或多个单元格,大部分表格软件或者表格控件都支持拆分单元格。拆分单元格多用于Word中...

在excel中怎么将一个单元格的内容拆分成两个单元格的内容?
答:单元格拆分可使用如下两个办法进行:如果单元格中带有分隔符号,可以使用数据-分列-分隔符号 如果单元格没有统一的分隔符号,可以使用公式法拆分 a. 在单元格中输入公式=LEFT(A1,2),b.在第二个单元格输入公式=RIGHT(A1,LEN(A1)-2)其中LEN公式的目的是为了计算A1格有多少字符,确保将A1格完全拆分...

excel表格怎么把一个格的内容分成两个
答:选中要拆分的单元格,在上方工具栏中点击【数据】。3、点击【分列】,勾选【分隔符号】。4、点击【下一步】。5、在分隔符号一栏下勾选【空格】。6、点击【下一步】。7、在列数据格式下,勾选【常规】。8、最后点击右下角的【完成】即可。9、excel表格把一个格的内容分成两个的效果,如图。

excel表格中合并的单元格怎么拆分?
答:(电脑型号:惠普 (HP) 暗影精灵8Pro,软件及版本号:WPS 11.1.0.13703)1、打开需要拆分单元格的Excel文档。2、选中要拆分的单元格后,点击合并居中,再点击拆分并填充内容。3、然后就可以得到拆分后的单元格了。以上就是拆分excel表格中合并的单元格的教程了,学会了的小伙伴快去试试吧✧*...

在Excel2007中,可以把一个单元格拆分成两?
答:形如Word中拆分单元格,在Excel中通过合并单元格,也可以达到同样的效果。比如:把一个单元格拆分成两行的效果。操作:选中A1:A2单元格区域,单击“格式”工具栏上的“合并及居中”按钮,把A1、A2两个单元格合并成了一个单元格(称A1单元格)。而此时合并而成的单元格A1与单元格B1、B2就构成了把一...

excel一个单元格如何拆分成多个
答:(一)方法一:选择法 选中待拆分单元格,例如 A1 和 B1,选择“开始”选项卡,单击“合并后居中”右边的黑色小倒三角,在弹出的菜单中选择“取消合并单元格”,则 A1 和 B1 被重新分为两个单元格;提示:Excel拆分单元格不像 Word 可以设置拆分为几个,它只会根据合并单元格的数目拆分,例如合并...