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

《按条件拆分excel表格两个单元格中的数字》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、按条件拆分Excel表格两个单元格中的数字　　有朋友要求Excel工作表的A1单元格和B1单元格中有两个数字，这两个数字有一部分相同，现在要找出其中相同的数字并写入单元格C1，找出A1中有而B1中没有的数字并写入单元格D1，找出B1中有而A1中没有的数字并写入单元格E1。　　如下面的工作表图片：　　我不知道给出的数字是否都是按这样的规律，即第一个原始数据的后面几位数与第二个原始数据的前面几位数相同。如果是这个规律的话，则可以就这个具体的例子给出下面的代码来实现：SubSeparateNumber()　　DimstrFirstAsString

2、　　DimstrResultAsString　　DimStartNumAsInteger　　DimEndNumAsString　　DimiAsInteger,jAsInteger　　strFirst=Left(Range(B1″),1)　　StartNum=InStr(1,Range(A1″),strFirst)　　j=1　　Fori=StartNumToLen(Range(A1″))　　　　EndNum=Mid(Range(A1″),i,1)　　　　IfEndNum=Left(Range(B

3、1″),j)Then　　　　　　j=j+1　　　　EndIf　　Nexti　　Ifj>1Then　　　　strResult=Mid(Range(A1″),StartNum,i-1)　　EndIf　　单元格C1中的数据　　Range(C1″).Value=strResult　　单元格D1中的数据　　Range(D1″).Value=Left(Range(A1″),StartNum-1)　　单元格E1中的数据　　Range(E1″).Value=Right(Range

4、(B1″),Len(Range(B1″))-j)EndSub　　代码很简单，只是运用了几个VBA函数。　　讨论：　　其实代码可以进一步简化，因为VBA还有一个数组函数(Split函数)。　　如果要将其变为通用的，则可将上述代码转化为自定义函数，并用相对量代替代码中的硬编码。　　两个单元格中的数字如果不是按上面提到的规律，则可能两个单元格中的数字中间部分相同，而其它部分不同；或者一个单元格中的数字结尾部分和另一个单元格中的数字的中间部分相同；等等。　　有兴趣的朋友可以继续研究。——..，。