正如标题所暗示的那样,我有一个当前正在运行的代码片段,我想调整它以使其具有更多的模糊匹配功能。
Sub FillInBlanks()
Application.ScreenUpdating = False
Dim rng As Range
Dim rng2 As Range
Set rng = ActiveSheet.Range("C2:C9452")
Set rng2 = ActiveSheet.Range("D2:D9452")
For Each cell In rng
If IsEmpty(cell) Then
cell.FormulaR1C1 = "=VLOOKUP(Department!RC[-1],'All Titles'!C:C[1],2,)"
Sheets("Department").Columns(3).Copy
Sheets("Department").Columns(3).PasteSpecial xlPasteValues
End If
Next cell
For Each cell In rng2
If IsEmpty(cell) Then
cell.FormulaR1C1 = "=VLOOKUP(RC[-1],'All Titles'!C[-3]:C[-2],2,)"
Sheets("Department").Columns(4).Copy
Sheets("Department").Columns(4).PasteSpecial xlPasteValues
End If
Next cell
Range("B2").Select
Application.ScreenUpdating = True
End Sub
正如你所看到的,它会找到一个匹配的vlookup。我的问题是它只能与其他范围完全匹配。我想基于与其他数据集的一定程度的相似性来匹配它。这消除了数据微小差异的无数问题。我知道这听起来过于复杂,可能超出了我的实施能力,但我认为它值得一试。我不能教我的同事如何使用它,所以如果我只需点击一个很棒的按钮就可以保留它。