Question

所以我为编写宏而难以理解这个逻辑，我希望得到一些帮助！

我在A列的表2中有一个大约1700个不同数字的列表。我需要一个宏来查找这些数字是否存在于sheet1的H列中，如果是，则填充同一行中的U列一个字或一个字。

有意义吗？

我找到了一种方法来查找sheet1中的H列是否具有这些数字并删除行，但这并不是我想要的。我只是试图看看我是否可以从删除行中删除逻辑，但不是那么多。

提前致谢！

我到目前为止的代码是：

The code I have so far is:
Sub DL()
Dim LR As Long, i As Long
With Sheets("Sheet2")
  LR = .Range("A" & Rows.Count).End(xlUp).Row
  For i = LR To 1 Step -1
    If IsNumeric(Application.Match(.Range("A" & i).Value, Sheets("Sheet2").Columns("A"), 0)) Then

Answer 1

试试这个：

Sub DL()

Dim LR As Long, i As Long
Dim rngList As Range

    Set rngList = Sheets("Sheet1").Range("H:H") 'lookup list

    With Sheets("Sheet2")
        LR = .Cells(Rows.Count, "A").End(xlUp).Row
            For i = 1 To LR
            If IsNumeric(Application.Match(.Cells(i, "A").Value, rngList, 0)) Then
                .Cells(i, "U").Value = "Match"
            End If
        Next i
    End With

End Sub

如果sheet1中的列H包含在工作表2的A列中列出的值，则Excel宏将在sheet1上的列U中填充值

1 个答案: