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

最新推荐文章于 2025-12-05 12:17:00 发布

原创最新推荐文章于 2025-12-05 12:17:00 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#excel #算法 #vba #string #n2 #工作

VBA 专栏收录该内容

2 篇文章

订阅专栏

介绍了使用VBA从两个Excel工作表中提取相同数据项的方法，并提供了具体代码实现。该方法适用于不需要对数据进行预排序的情况。

工作需要，有时要从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(n²)

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

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

Author:David

Mail:xiang.okay@gmail.com