2016-09-09 6 views
0

配列に関する質問があります。配列の重複行を削除します

Dim TopStud() As Variant 

TopStud = Range("A1", Range("A2").End(xlDown).End(xlToRight)) 
'code that removes duplicate values in array 

'end code 
Worksheets.Add 

Range(ActiveCell, ActiveCell.Offset(UBound(TopStud, 1) - 1, UBound(TopStud, 2) - 1)).Value = TopStud 

上記のコードは、私は、配列内の値の範囲を取得する方法を示しています。まず、私はあなたに私が持っているコードを表示しましょう。この配列に保存されている重複した値を新しいワークシートに削除します。上記を参照。これを行う簡単な方法はありますか?

は、私は次のような結果が欲しい: enter image description here

+4

あなたが値をつけた後、セルにRemoveDuplicatesを使用することができます。そこには多くのチュートリアルがあり、 'Range.RemoveDuplicates'の簡単な検索でそれらを取得する必要があります。 –

+1

削除する重複を実行するマクロを記録して、どのように表示するかを選択します。データタブを選択します。列A:Dを選択し、列Kの上に重複を削除するか選択します。私はこのアプローチを、メニューの中で利用できる何かのVBAコードがわからないときによく使用します。 – xQbert

答えて

1

あなたは現在の列のいずれかの重複のために全体のレコードを削除する場合:

Cells.RemoveDuplicates Columns:=ActiveCell.Column,Header:=xlYes

enter image description here

+0

それは単なる列ではなく、全記録であった。全範囲を使用し、列1に基づいて重複を削除する方が良いでしょう。全体のレコード6246、Calvin ,, Bakkerは削除された重複です。 –

+0

@ScottCranerありがとう、私はそれを確認したことを誓ったことができました。 –

+0

@ScottCraner素敵な記事ですが、それは私の心を変えませんでした。理由は、テキストとして格納されている番号を検索している場合や、実際に番号一致である文字列番号が見つからない場合です。あなたが好きかもしれません[エクセルVLOOKUP対インデックスマッチVS SQL VS VBA](http://analystcave.com/excel-vlookup-vs-index-match-vs-sql-performance/) –

関連する問題