title: How do I convert every nth column to row?
body: <p>I'm looking at this macro:</p>
  
  <pre><code>Sub Spl_Transpose() 
  Dim i, LastRow 
  LastRow = Range("A" &amp; Rows.Count).End(xlUp).Row 
  For i = LastRow To 1 Step -2 
  Cells(i, "A").Offset(-1, 1).Value = Cells(i, "A").Value 
  Cells(i, "A").EntireRow.Delete 
  Next 
  End Sub 
  </code></pre>
  
  <p>The above macro turns every other column into a row.</p>
  
  <p>I have created a long, <code>3-field CSV in Excel</code>.  I want every <code>1st column</code> to go in <code>A</code>, every <code>2nd column</code> to go in <code>B</code>, and every <code>3rd column</code> to go in <code>C</code>.  Can anyone tell me how to transform the above macro and make it happen?</p>
  
  <p>Example input:</p>
  
  <pre><code>     A        B       C          D        E           F          G         H           I          J         K        L          
  1    fruit    bowl    kitchen    bread    breadbox    kitchen    cereal    cupboard    kitchen    stereo    floor    living room
  </code></pre>
  
  <p>And example output:</p>
  
  <pre><code>A       B      C
  fruit   bowl   kitchen
  bread   breadbox   kitchen
  cereal   cupboard   kitchen
  stereo   floor   living room
  </code></pre>
  
  <p>I'm wondering what needs to be changed in order to increase this to an <code>A    B    C    D</code> scenario, also.</p>