title: VBA Partial match (Value/String) of cells consecutive
body: <p>I am struggling with partial Match, the idea is to add a comment on each line if there is a match or not with the below row, result should be as on below picture</p>
  <p><a href="https://i.stack.imgur.com/dO82M.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/dO82M.png" alt="enter image description here" /></a></p>
  <p>my struggle is with the part with Part Match, ex with B4 Value&quot;87032610&quot; and B5 &quot;Payment 87032610&quot;, results which I want to have is txt in column C4 and C5 &quot;Part Match&quot;</p>
  <p>so far my code :</p>
  <pre><code>Sub testRes()
  Dim i As Integer
  
  i = 2
  
  Do While ThisWorkbook.Worksheets(&quot;test&quot;).cells(i, 1) &lt;&gt; &quot;&quot;
  
  If ThisWorkbook.Sheets(&quot;test&quot;).cells(i, 1) Like &quot;*&quot; &amp; ThisWorkbook.Sheets(&quot;test&quot;).cells(i + 1, 1) Then
  ThisWorkbook.Sheets(&quot;test&quot;).cells(i, 1).Offset(0, 1).Value = &quot;Yes&quot;
  ThisWorkbook.Sheets(&quot;test&quot;).cells(i + 1, 1).Offset(0, 1).Value = &quot;Yes&quot;
  
  Else
  ThisWorkbook.Sheets(&quot;test&quot;).cells(i, 1).Offset(0, 1).Value = &quot;No&quot;
  ThisWorkbook.Sheets(&quot;test&quot;).cells(i + 1, 1).Offset(0, 1).Value = &quot;No&quot;
  
      End If
  
  i = i + 1
  Loop
  
  
  End Sub
  </code></pre>
  <p>Thank you :-)</p>