Excel单元格数据特殊处理实例

Excel单元格数据特殊处理实例,有朋友要求Excel工作表的A1单元格和B1单元格中有两个数字，这两个数字有一部分相同，现在要找出其中相同的数字并写入单元格C1，找出A1中有而B1中没有的数字并写入单元格D1，找出B1中有而A1中没有的数字并写入单元格E1。 有朋友要求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函数)。 如果要将其变为通用的，则可将上述代码转化为自定义函数，并用相对量代替代码中的硬编码。 两个单元格中的数字如果不是按上面提到的规律，则可能两个单元格中的数字中间部分相同，而其它部分不同；或者一个单元格中的数字结尾部分和另一个单元格中的数字的中间部分相同；等等。

• 电脑硬件知识
• 软件知识
• 操作系统
• 电脑故障
• qq大全
• Word教程
• Excel教程
• 电脑技巧
• 网络知识
• 软件技巧
• 网赚
• 网络应用
• 笔记本知识
• 电脑知识
• 电脑维修
• 软件故障

• · 60个电脑小技巧
• · 永远不进别人QQ黑名单的方法
• · 巧妙拦截QQ广告 防火墙也能“兼职”
• · QQ离线也发送自定义表情
• · 秒杀QQ弹出的迷你首页
• · 让电脑只能登录指定QQ号码
• · 玩转腾讯TT4.4浏览器的QQ帐号登录功能
• · QQ好友不在线 自定义表情照样能发
• · 给QQ好友空间快捷留言
• · 给QQ邮箱装上“自动开关”
• · 彻底删除QQ医生
• · 表现自我，彰显个性 — QQ邮箱个性化信纸
• · QQ手机邮箱文件中转站也可以续期啦
• · 预防QQ被盗的两个小技巧
• · QQ游戏加载DLL失败的解决方法
• · 巧妙去除QQ游戏大厅的广告
• · 普通QQ号克隆好友
• · Word文档批量转为文本文件的方法
• · Word的一些小技巧
• · 快速找出两个Word文档间的差别的方法
• · Excel文件受损基本急救方法四则