之前的文章给大家分享了获取两个表中相同的数据。类似的，我们也可以利用COUNTIF公式，循环遍历，获取只存在于某个工作表中的数据。 以下案例是比较两张表，获取只存在于某个表中的数据，并将这些数据复制到指定的工作表中。 '' 获取只存在于某个表的数据'Sub getUniqDataInSheet() Dim sht As Worksheet, sht2 As Worksheet Dim rng1 As Range, rng2 As Range, rngCell As Range, rngCell As Range ' Set sht = Worksheets("只存在于表1的数据表") Set sht2 = Worksheets("只存在于表2的数据表") sht.Cells.Clear sht2.Cells.Clear ' Set rng1 = Worksheets("表1").Range("A1").CurrentRegion.Columns(1) Set rng2 = Worksheets("表2").Range("A1").CurrentRegion.Columns(1) ' 只存在于表1 Worksheets("表1").Range("1:1").Copy sht.Range("A1") ' i = 1 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 Next ' 只存在于表2 Worksheets("表2").Range("1:1").Copy sht2.Range("A1") i = 1 For Each rngCell In rng2.Cells If WorksheetFunction.CountIf(rng1, rngCell.value) = 0 Then i = i + 1 rngCell.EntireRow.Copy sht2.Range("A1") End If Next ' MsgBoxEx "Done"End Sub