title: How to remove duplicate values in an individual column for multiple columns at once
body: <p><strong>How do I remove duplicate values within individual columns across all of my columns at once?</strong></p>
  
  <p>If I select the <code>Remove Duplicates</code> tool in Excel with multiple columns selected, it assumes I'm looking for duplicates <em>across</em> columns. </p>
  
  <p>What I want is to remove duplicates in <em>individual columns</em>, but I don't want to have to click each of my columns individually. </p>
  
  <ul>
  <li>For example, assume I have a spreadsheet with 500 columns. 
  I want to remove all duplicate values in Column 1 ("A"), and then remove all duplicate columns in Column 2 ("B") and so forth through Column 500.</li>
  </ul>
  
  <hr>
  
  <p>What I've Tried:</p>
  
  <ol>
  <li><p>Record Macro. The results:</p>
  
  <pre><code>ActiveWindow.ScrollColumn = 1
  Columns("A:A").Select
  Application.CutCopyMode = False
  ActiveSheet.Range("$A$1:$A$582").RemoveDuplicates Columns:=1, Header:=xlYes
  </code></pre>
  
  <p>As you can see, for some reaosn it auto selects column "A". I don't know how to make it generically select the letter of the column I've selected. Sooo...</p></li>
  <li><p>I tried the following:</p>
  
  <pre><code>Col = Split(ActiveCell(1).Address(1, 0), "$")(0)
  Application.CutCopyMode = False
  ActiveSheet.Range("Col1:Col1581").RemoveDuplicates Columns:=1, Header:=xlYes
  </code></pre>
  
  <p>But it also does not work.</p></li>
  </ol>
  
  <p>How would I go about doing this??</p>
  
  <hr>
  
  <p>I'm using MS Excel 2010 (Professional Plus)</p>