摘要： 有朋友要求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)
让Excel图表任意纵横分割
让Excel图表任意纵横分割 在普通的Excel数据表格中，数据落在什么区域并不是十分的明显，尤其是在区分个别警戒数据的时候，如图1所示 很难分清楚哪些点落在警戒线30以下，哪些落在60点以上，怎么样来解决这样的问题呢?我们可以通过建立辅助数据来对表格进行横向分隔。 如图所示，建立辅助数据1和辅助数据2，辅助数据即是需要警戒的数量界限，当然也可以是三个、四个甚至更多，在这里仅仅举三个的辅助数据。 将辅助数列复制并粘贴到数据表格中，或者选中数据和辅助数据一起建立堆积柱形图，效果如图3所示 左键激活数据即紫色
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函数。
Excel中完美冻结第一行.第一列的技巧
Excel中完美冻结第一行.第一列的技巧 第一步：在Excel中，单击选中“B2”单击格，执行“窗口”→“拆分”命令(如图1),接下来便会出现图2所示的效果，如果没有出现图2所示效果则说明窗口拆分未成功。 第二步：单击选中最左上角的“A1”单元格，执行“窗口”→“冻结窗格”命令(如图3)。 这时就完美的实现了冻结第一行、第一列的效果了(如图4)。对于一些数据较多的表格，需要固定表头或者第一列，冻结后查看就方便多了。你也遇到了秀秀老师的难题了吗?还不赶快把这招学会了。
