Vba 无法获取worksheetfunction类的match属性

我正在将不同工作簿中的数据合并到主工作簿中。但在合并后，我需要删除副本。。 工作表

工作表
：--------------
任务类别任务说明/分配到指定日期的详细信息预期交付日期实际完成日期状态 :------------------------------------------------------------------------- 分析任务1 Maaya 02-01-2017 19-01-2017 19-01-2017已完成 分析任务2 Maaya 02-01-2017 19-01-2017 19-01-2017已完成 分析任务3 Maaya 20-01-2017 10-03-2017 10-03-2017已完成 分析任务4 Maaya 20-01-2017 10-03-2017 10-03-2017已完成 编码和测试任务5 Maaya 01-03-2017 10-03-2017 10-03-2017已完成 编码和测试任务5 Maaya 01-03-2017 10-03-2017正在进行

使用下面的代码，我可以删除重复的。。。但是TASK5有两种状态，如已完成和正在进行。我需要最新的数据

代码如下：

Public Sub duplicate_removal()
Dim Colm, lastrow As String
Dim i, Value1, Value2 As Integer
ActiveWorkbook.Worksheets("Work Management").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Work Management").Sort.SortFields.Add 
Key:=Range("F3:F104857"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Work Management").Sort
        .SetRange Range("A3:X104857")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
End With
Colm = WorksheetFunction.Match("ID", Sheets("Work Management").Rows(1), 0)
lastrow = ActiveSheet.Cells(Rows.Count, Colm).End(xlUp).Row
For i = 2 To lastrow

   Value1 = Range("C" & i).Value
  Value2 = Range("C" & i + 1).Value


    If Value1 = Value2 Then
    Rows(i).Delete
    End If

MsgBox ("Duplicates removed ")

Next

Application.ScreenUpdating = True
End Sub

---

`代码内部。你有这样的代码行

Colm = WorksheetFunction.Match("ID", Sheets("Work Management").Rows(1), 0)

---

它正在查找数据中没有的列标题“ID”。如果您更改了它，您需要自己的列标题。它将工作

好的，我已更改为任务描述。。。但仍然在Value2=Range（“N”&i+1）处获得错误。值为键入错误13@Maaya那是另一个错误。请将新问题与您的数据一起发布，因为您已经发布了代码，而不是图像。请接受这个答案，因为它回答了你的问题：）@Maaya你的问题已经得到了回答。接受答案，开始新的问题！