Excel表格中vba宏帮助你按条件拆分两个单元格中的数字_第1页
Excel表格中vba宏帮助你按条件拆分两个单元格中的数字_第2页
Excel表格中vba宏帮助你按条件拆分两个单元格中的数字_第3页
Excel表格中vba宏帮助你按条件拆分两个单元格中的数字_第4页
Excel表格中vba宏帮助你按条件拆分两个单元格中的数字_第5页
已阅读5页，还剩10页未读， 继续免费阅读

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

Excel表格中vba宏帮助你按条件拆分两个单元格中的数字第一页，共15页。没有的数字并写入单元格D1，找出B1中有而A1中没有的数字并写入单元格E1。如下面的工作表图片：我不知道给出的数字是否都是按这样的规律，第一页第二页，共15页。即第一个原始数据的后面几位数与第二个原始数据的前面几位数相同。如果是这个规律的话，则可以就这个具体的例子给出下面的代码来实现：SubSep第二页第三页，共15页。arateNumber()DimstrFirstAsStringDimstrResultAsStringDimStartNum第三页第四页，共15页。AsIntegerDimEndNumAsStringDimiAsInteger,jAsIntegerstrFirst=第四页第五页，共15页。lef(Range(”B1′),1)StartNum=InStr(1,Range(”A1′),strFirst)j=1Fori=St第五页第六页，共15页。artNumToLen(Range(”A1′))EndNum=Mid(Range(”A1′),i,1)IfEndNum=lef(R第六页第七页，共15页。ange(”B1′),j)Thenj=j+1EndIfNextiIfj>1ThenstrResult=Mid(Range第七页第八页，共15页。(”A1′),StartNum,i-1)EndIf‘单元格C1中的数据Range(”C1′).Value=strResult‘单元第八页第九页，共15页。格D1中的数据Range(”D1′).Value=lef(Range(”A1′),StartNum-1)‘单元格E1中的数据Range第九页第十页，共15页。(”E1′).Value=Right(Range(”B1′),Len(Range(”B1′))-j)EndSub代码很简单，只是运用第十页第十一页，共15页。了几个VBA函数。讨论：其实代码可以进一步简化，因为VBA还有一个数组函数(Split函数)。如果要将其变为通用的，则可将上述代码转化为自定第十一页第十二页，共15页。义函数，并用相对量代替代码中的硬编码。两个单元格中的数字如果不是按上面提到的规律，则可能两个单元格中的数字中间部分相同，而其它部分不同;或者第十二页第十三页，共15页。一个单元格中的数字结尾部分和另一个单

人人文库> 全部分类> 教育资料 > 课件下载

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论