.FIND 函数与 .FIND 和 Offset()答案

【问题标题】：.FIND function with .FIND and Offset().FIND 函数与 .FIND 和 Offset()
【发布时间】：2013-09-05 00:08:34
【问题描述】：

我在 Excel 中为 3 张工作表编写代码，工作表 1 将显示来自 Sheet3 的 Sheet2 中未出现的数据，为了完成此代码将如下所示；

Dim r As Excel.Range
Dim cell As Excel.Range
Set r = Sheet3.Range(Sheet3.Cells(1, 1), Sheet3.Cells(Rows.Count, 1).End(xlUp))
Dim curRowSheet1 As Long

curRowSheet1 = 1

For Each cell In r
    Set rFind = Sheet2.Range("A:A").Find(cell.Value)



    If (rFind Is Nothing) Then
        cell.EntireRow.Copy Sheet1.Cells(curRowSheet1, 1)
        curRowSheet1 = curRowSheet1 + 1
    End If
Next cell

注意：我试图在第 9 行“SET rFind”下包含第二个 .FIND，如果在列 (“A:Ä”) 中查找单元格值，然后它还会验证列中的值是否相同 ( "B:B") 来自表 2 和表 3，我想我可以使用 Offset() 函数来比较这些数据，对此的任何建议将不胜感激！！！！

谢谢。

【问题讨论】：

标签： vba excel excel-2010

【解决方案1】：

我建议使用WorksheetFunction.CountIfs，而不是Range.Find

Sub tgr()

    Dim ACell As Range

    For Each ACell In Sheet3.Range("A1", Sheet3.Cells(Rows.Count, "A").End(xlUp)).Cells
        If WorksheetFunction.CountIfs(Sheet2.Columns("A"), ACell.Value, Sheet2.Columns("B"), ACell.Offset(, 1).Value) = 0 Then
            ACell.EntireRow.Copy Sheet1.Cells(Rows.Count, "A").End(xlUp).Offset(1)
        End If
    Next ACell

End Sub

【讨论】：