摘要： 有朋友要求Excel工作表的A1单元格和B1单元格中有两个数字，这两个数字有一部分相同，现在要找出其中相同的数字并写入单元格C1，找出A1中有而B1中没有的数字并写入单元格D1，找出B1中有而A1中没有的数字并写入单元格E1。
如下面的工作表图片：
2种方法移动Excel中的公式计算结果
2种方法移动Excel中的公式计算结果 可以通过在Excel单元格中输入公式自动求出相应的结果，但是如果你想简单地使用复制和粘贴命令将结果移到其他的位置，是不可能的，因为你复制粘贴的是公式而非计算出来的结果，所以移到新位置后数字都会变成另外的计算结果。 可以采取两种办法：一是将计算结果复制到一个Word文档中，这最保险。二是在计算出结果后改变Excel的 默认设置：在“工具/选项/重新计算”对话框中选中“人工重算”，并将“保存前自动重算”前的对钩去掉，然后你就可以对原表格中的数据任意复制了。不过有 一点需
我不知道给出的数字是否都是按这样的规律，即第一个原始数据的后面几位数与第二个原始数据的前面几位数相同。如果是这个规律的话，则可以就这个具体的例子给出下面的代码来实现：
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函数)。
- 如果要将其变为通用的，则可将上述代码转化为自定义函数，并用相对量代替代码中的硬编码。
- 两个单元格中的数字如果不是按上面提到的规律，则可能两个单元格中的数字中间部分相同，而其它部分不同；或者一个单元格中的数字结尾部分和另一个单元格中的数字的中间部分相同；等等。
有兴趣的朋友可以继续研究。
四种拯救Excel表格损坏的方法
四种拯救Excel表格损坏的方法 不管是什么软件，都免不了被损坏的命运，Excel也是一样的，但是，当Excel损坏的时候，我们应该怎么去做呢?是任其发展，还是采取修补 自救的方法，当然我们会选择后者，采取修补自救的方法，但是，到底有几种方法来自救呢?现在Word联盟为大家列出了4种比较好的方法，希望对大家有帮 助。 第一种方法：采取直接修复 最新版本的Excel具有直接修复受损文件的功能，大家可以利用Excel新增的“打开并修复”命令，来直接检查并修复Excel文件中的错误，只要 单击该命令，Excel
