Excel 取两页中相同的数据项算法一 时间复杂度O(n2)

工作需要，有时要从Excel的两页中提取一些共同的数据项出来分析, 而两页中的数据都没有按某关键列排过过序, 简单的用VBA写了一个抽取数据的方法:

Sheet6 中存放Sheet3 和 Sheet5中相同的数据项.

public Sub GetMixedInfo()
Dim i As Integer
Dim j As Integer
Dim keyword As String
'copy the header
Sheet3.Range("1:1").Copy (Sheet6.Cells(1, 1))
Sheet3.Rows(2).Copy (Sheet6.Cells(2, 1))
'copy the body
For i = 3 To 53
keyword = Sheet2.Cells(i, 3)
For j = 3 To 251
If keyword = Sheet3.Cells(j, 3) Then
'Sheet3.Range(Cells(j, 1), Cells(j, 256)).Copy (Sheet6.Cells(i, 1))
Sheet3.Rows(j).Copy (Sheet6.Cells(i, 1))
Exit For
End If
Next j
Next i
'copy the ender
Sheet3.Rows(54).Copy (Sheet6.Cells(54, 1))
End Sub

算法的时间复杂度为O(m*n) = O(n2)

若果你不在意时间, 数据规模也不是很大, 用上面的函数就够用了.

下篇会介绍, 先对Sheet3 和 Sheet5中数据排序, 时间复杂度为O(m+n) = O(n)的情况.

Author:David

Mail:xiang.okay@gmail.com