1. 云栖社区>
  2. 技术文集>
  3. 列表>
  4. 正文

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

作者:用户 来源:互联网 时间:2016-12-15 18:24:24

数据数字range两个相同单元两个数字

Excel表格中vba宏按条件拆分两个单元格中的数字 - 摘要: 本文讲的是Excel表格中vba宏按条件拆分两个单元格中的数字,   有朋友要求Excel工作表的A1单元格和B1单元格中有两个数字,这两个数字有一部分相同,现在要找出其中相同的数字并写入单元格C1,找出A1中有而B1中没有的数字并写入单元格D1,找出B1中

  有朋友要求Excel工作表的A1单元格和B1单元格中有两个数字,这两个数字有一部分相同,现在要找出其中相同的数字并写入单元格C1,找出A1中有而B1中没有的数字并写入单元格D1,找出B1中有而A1中没有的数字并写入单元格E1。

  如下面的工作表图片:

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

  我不知道给出的数字是否都是按这样的规律,即第一个原始数据的后面几位数与第二个原始数据的前面几位数相同。如果是这个规律的话,则可以就这个具体的例子给出下面的代码来实现:

  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函数。

以上是云栖社区小编为您精心准备的的内容,在云栖社区的博客、问答、公众号、人物、课程等栏目也有 的相关内容,欢迎继续使用右上角搜索按钮进行搜索数据 , 数字 , range , 两个 , 相同 , 单元 两个数字 excel vba 拆分单元格、vba拆分合并单元格、vba 拆分单元格、vba拆分单元格的内容、vba按条件拆分工作表,以便于您获取更多的相关知识。

excel-VS2008如何读取Excel表格某一特定工作表(sheet)的内容?

问题描述 VS2008如何读取Excel表格某一特定工作表(sheet)的内容? 再编写一个VS2008读取Excel表格内参数的程序,目前可以实现读取Excel表格当前活跃工作表(例如sheet1)中的数据,但是如果我...

使用excel表格必须知道的32技巧

...类下拉列表填充项   我们常常要将企业的名称输入到表格中,为了保持名称的一致性,利用“数据有效性”功能建了一个分类下拉列表填充项。   1.在Sheet2中,将企业名称按类别(如“工业企业”、“商业企业”、“个体...

php excelreader2导出类读取函数详解

...对excel对象的具体属性不是完全了解使我还没完全吃透这两个函数是何意,也许在今后的php导入导出excel实例时会明白,如果你知道欢迎留言告诉我,谢谢。   导出excel中单元格的各种属性123function rowspan($row,$col,$sheet=0)function co...

ruby: 读写excel文件

...-26 13:40:35分类: 测试工作中,批量的数据通常会放到excel表格中,测试输出的数据写回表格中,这样输入输出易于管理,同时清晰明了 使用ruby来操作excel文件首先需要在脚本里包含以下语句require 'win32ole' 把win32ole包含进来后,就可以...

JAVA Excel API学习案例

...kbook(new File("F:" + File.separator + "myExcel1.xls")); // 创建excel表格中的一个sheet项 WritableSheet sheet = wwb.createSheet("第一页", 0); // excel中的cell元素可以有很多种数据类型,比如Number,Label等等 // 在API中,为我们提供了很多的cell类型 //...

前三篇
后三篇