有时候，需要查找两个表都存在的数据，并将这部分数据汇总到同一个表中。以下案例假设按照第一列数据进行查找，使用Excel公式COUNTIF进行查找。 '' 根据相同列进行查找汇总'Sub mergeCommonItems() Dim sht As Worksheet Dim rng1 As Range, rng2 As Range, rngCell As Range ' Set sht = Worksheets("结果汇总") sht.Cells.ClearContents ' 清除以前的结果 ' 获取两个标的数据查找区域 Set rng1 = Sheets("sheet1").Range("A1").CurrentRegion.Columns(1) Set rng2 = Sheets("sheet2").Range("A1").CurrentRegion.Columns(1) i = 0 For Each rngCell In rng1.Cells If WorksheetFunction.CountIf(rng2, rngCell.value) > 0 Then i = i + 1 rngCell.EntireRow.Copy sht.Cells(i, 1) ' 如果查找到，就把数据复制到结果汇总页的第一列 End If NextEnd Sub