Question

我想知道是否可以在找到相反符号值的列中创建匹配的宏。这就是我堆积的地方：

Sub matching()

Dim i As Integer
Dim myVar, myFunc As Variant
Dim myList As Range

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step 1

myVar = Cells(i, "J")
myList = Range(Cells(2, "J"), Cells(Cells(Rows.Count, 1).End(xlUp).Row, "J"))
myFunc = Application.WorksheetFunction.VLookup(myVar, myList, 1, False)

If myVar - myFunc = 0 Then
Cells(i, "G") = "Match"
Else
Cells(i, "G") = "No Match"

End If
Next

End Sub

Answer 1

除了一些语法错误之外，我认为您的代码并没有按照您的要求进行操作。

DeleteFolderCommand将指向myVar范围的某个单元格。这将有＆＃34; VLookup＆＃34;永远＆＃34;赶上＆＃34; myList单元格和myFunc返回myVar值，从而导致myVar检查始终返回If myVar - myFunc = 0

如果您更好地设定目标，您可以根据需要调整以下代码

True

没有循环

VBA匹配列中相反的符号值

1 个答案: