title: VBA *Wildcard* Vlookup - or alternative
body: <p>I am looking to write a bit of code using the Vlookup function to return a value to an adjacent column. However i would like the lookup to work with a wildcard ie not require an exact match.</p>
  
  <p>The code below will look down column D row by row, then use the value to lookup the corresponding value from the data table and return it to column E. This sort of works but cant cope well with missing or incorrect values.</p>
  
  <p>The data in column D will be full text format sentences so i just need to look for key words and then return a set reference value for data processing.</p>
  
  <pre><code>    Sub LookUpComments() 'exact match only ???
  
  On Error Resume Next
  Application.ScreenUpdating = False
  
      Dim DataRow As Long
      Dim DataClm As Long
      Dim Result As Variant
  
  DataTable = Sheet3.Range("D5:D35")
  LookUpTable = Sheet3.Range("AA10:AB20")
  Sheet3.Range("E5:E10000").ClearContents
  
  DataRow = Sheet3.Range("E5").Row
  DataClm = Sheet3.Range("E5").Column
  
  For Each cl In DataTable
  
          If cl = "" Then GoTo E
          Result = Application.WorksheetFunction.VLookup(cl, LookUpTable, 2, blnLookupType)
          If Result = Error Then GoTo E
          Sheet3.Cells(DataRow, DataClm) = Result
  
  E:            DataRow = DataRow + 1
  Next cl
  
  Application.ScreenUpdating = True
  MsgBox "Data LookUp is complete"
  
  End Sub
  </code></pre>
  
  <p>I hope I have made that clear enough? If this function is not possible, do you think i could use some kind of looping find and replace function?</p>
  
  <p>Thanks in advance</p>