可以用IF 函数，然后拖拉，不过比较麻烦

Sub filter()
    Dim m& '    找到的数据组数
    Dim nj% '   数据列数
    Dim i& '    行循环
    Dim j& '    行+1
    Dim k& '    列循环
    ni = 9 '    数据总行数-------输入
    nj = 8 '    数据总列数-------输入
   
    m = 0
    For i = 1 To ni
        j = i + 1
        If Sheet1.Cells(i, 1) = Sheet1.Cells(j, 1) And Sheet1.Cells(i, 2) = Sheet1.Cells(j, 2) Then
            m = m + 1
            For k = 1 To nj
                Sheet2.Cells(2 * m - 1, k) = Sheet1.Cells(i, k)
                Sheet2.Cells(2 * m, k) = Sheet1.Cells(j, k)
            Next k
        End If
    Next i
End Sub

试过了，没用，sheet3一片空白。

可以用一个函数搞定，例如在EXCEL中有A、B两列数据，如下所示：
A      B
1        5
2        6
2        6
4        8
5        9
5        9
7        11
8        12
9        13
10        14
11        15
11        16
13        17
14        18
16        19
16        19
17        21
18        22
19        23
在第三列中输入公式：=IF(($A1=$A2)*($B1=$B2),1,0)  这是第三列第一行数函数，向下填充所有即可
A      B      C
1        5        0
2        6        1
2        6        0
4        8        0
5        9        1
5        9        0
7        11        0
8        12        0
9        13        0
10        14        0
11        15        0
11        16        0
13        17        0
14        18        0
16        19        1
16        19        0
17        21        0
18        22        0
19        23        0
第三列会出现1和0两个值，1表示这一行是我们想要的数据，此时第三列仍是公式，复制第三列，选择性粘贴，选择粘贴值到第四列
A      B      C      D
1        5        0        0
2        6        1        1
2        6        0        0
4        8        0        0
5        9        1        1
5        9        0        0
7        11        0        0
8        12        0        0
9        13        0        0
10        14        0        0
11        15        0        0
11        16        0        0
13        17        0        0
14        18        0        0
16        19        1        1
16        19        0        0
17        21        0        0
18        22        0        0
19        23        0        0
此时虽然第三列和第四列显示的值一样，但是第四列是数值，第三列是公式
以四列为基础进行降序排序
A      B      C       D
2        6        0        1
5        9        0        1
16        19        0        1
1        5        0        0
2        6        0        0
4        8        0        0
5        9        0        0
7        11        0        0
8        12        0        0
9        13        0        0
10        14        0        0
11        15        0        0
11        16        0        0
13        17        0        0
14        18        0        0
16        19        0        0
17        21        0        0
18        22        0        0
19        23        0        0
此时第四列显示为1的就是我们需要的最终数据。

上面公式没有显示完全，完整为