有朋友要求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)

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