title: VBA - Split string into individual cells
body: <p>I have a string compressed into one cell. I need to separate each part of the string into their own cell, while copying the data from the same row. </p>
  
  <p>Here is my example data:</p>
  
  <pre><code>        A               |    B                  
  Row1 ABC ABD ABE ABF    |  CODE1
  Row2 BCA DBA EBA FBA    |  CODE2
  Row3 TEA BEF            |  CODE3
  </code></pre>
  
  <p>The result would be:</p>
  
  <pre><code> A     B
  ABC  CODE1
  ABD  CODE1
  ABE  CODE1
  ABF  CODE1
  BCA  CODE2
  DBA  CODE2
  EBA  CODE2
  FBA  CODE2
  TEA  CODE3
  BEF  CODE3
  </code></pre>
  
  <p>I have about 2000 rows and would literally take 30 years to use the text to column function for this. So I am trying to write a vba macro. I think I am making this harder than it needs to be. Any thoughts or pushes in the right direction would be appreciated. Thanks in advance for any help. </p>