Excel表格中的vba宏根据条件将两个单元格中的数字分�

有朋友问，Excel工作表的单元格A1和单元格B1有两个数字，这两个数字有些相同。现在我们需要找出相同的数字，并将其写入C1单元，找出A1单元中的数字，但不要写入B1单元，并将其写入D1单元，找出B1单元中的数字，但不要写入A1单元，并将其写入E1单元。

如下面的工作表图片：

不知道给出的数字是否都遵循第一个原始数据的最后几个数字和第二个原始数据的前几个数字相同的规律。如果这是规则，可以给出下面的代码来实现这个具体的例子：

子分离成员()

第一个字符串变暗

将结果作为字符串变暗

将起始数字调成整数

将结束编号设为字符串

将I调成整数，将j调成整数

strFirst=左侧(范围(“B1”)，1)

StartNum=InStr(1，范围(“A1”)，strFirst)

j=1

对于i=起始数至透镜(范围(“A1”)

EndNum=中(范围(“A1”)，I，1)

如果端号=左(范围(“B1”)，j)那么

j=j 1

如果…就会结束

接下来我

如果j 1，那么

strResult=中(范围(“A1”)，起始数，i - 1)

如果…就会结束

“细胞C1的数据

范围(“C1”)。值=strResult

“细胞D1的数据

范围(“D1”)。值=左(范围(“A1”)，起始数- 1)

E1细胞中的数据

范围(“E1”)。值=右侧(范围(“B1”)、透镜(范围(“B1”))-j)

末端接头

代码非常简单，只是使用了几个VBA函数。