title: Lookup value and concatenate corresponding value into one cells (with linebreaker vbCrLf)
body: <p>I have this table with equipments and corresponding properties:</p>
  
  <p><img src="https://i.imgur.com/qldwshn.jpg" alt="Table 1"></p>
  
  <p>I want to lookup value of equipment in this table and concatenate corresponding property values into one cells so that outcome would like this:</p>
  
  <p><img src="https://i.imgur.com/Jf0MzdX.jpg" alt="Table 2"></p>
  
  <p>I've already tried using user defined functions like this: </p>
  
  <pre><code>Function CusVlookup(lookupval, lookuprange As Range, indexcol As Long)
   Dim x As Range
   Dim result As String
   result = ""
   For Each x In lookuprange
       If x = lookupval Then
           result = result &amp; " " &amp; x.Offset(0, indexcol - 1)
       End If
   Next x
   CusVlookup = result
  End Function
  </code></pre>
  
  <p>CusVlookup works great but it's too heavy and I have 2000+ unique values of equipment so excel just crushes or takes too long too calculate
  I also used TEXTJOIN function array formula, same result, very slow and excel crushing</p>
  
  <p>I need to join cells using line breaker (<code>vbCrLf</code>)
  Is there VBA code to accomplish the same goal?</p>
  
  <p>Thanks!</p>