Dim hang, m, n, t, k As String
m =Application.WorksheetFunction.VLookup(Sheet6.Cells(88, 3),Sheet3.Range("I6:J21"), 2, 0)
n =Application.WorksheetFunction.VLookup(Sheet6.Cells(90, 3),Sheet3.Range("I6:J21"), 2, 0)
k =Application.WorksheetFunction.VLookup(Sheet6.Cells(92, 3),Sheet3.Range("I6:J21"), 2, 0)
运行时显示错误：不能取得类worksheetfunction的vlookup
这是什么错误，应该如何修改？谢谢

我看你代码写的没啥问题，错误是不是不能取得类worksheetfunction的vlookup属性？如果是就是没找到值，没找到不会返回空字符会出现这个错误

因为，你的查找值，在你的数据源里面没有，就会报错