重複確認 初歩

質問

初歩的な質問ですいません下記のようなVBAを作成したいのですが、下記A列ですが、は可変にしたい場合どうしたらいいかわかりません。ActiveCellでやるのでしょうか？よろしくお願いします。

　A 　　
1　りんご　　
2　みかん　　　　　
3　あんず　　　　　
4　あんず　　
5　みかん　　　　　
6　めろん　　
　↓
　A 　　　
1　りんご　　
2　みかん　　　　　
3　あんず　　　　　
4　めろん

回答No.1

SI299792 · ベストアンサー

B列をワークエリアに使ってよろしいでしょうか。
B列に番号を振って並べ替え、同じものを削除して、もとにもどす方法です。
'
Sub Macro1()
'
' Macro1 Macro
'
Dim iy1 As Integer
Dim iye As Integer
'
Aplication.ScreenUpdating = False '実行速度を上げる
'
iye = [A1].End(xlDown).Row
'
For iy1 = 1 To iye
Cells(iy1, "B") = iy1
Next iy1
'
[A:B].Sort Key1:=[A1]
'
For iy1 = iye - 1 To 1 Step -1
If Cells(iy1, "A") = Cells(iy1 + 1, "A") Then
Cells(iy1 + 1, "A").Range("A1:B1").Delete Shift:=xlUp
End If
Next iy1
'
[A:B].Sort Key1:=[B1]
[B:B].ClearContents
'
End Sub
’
B列か使えないならご記入ください。（方法はありますが、実行速度は下がります）
また、ダブりを削除できたら、並び順はどうでもいいのならもご記入ください。B列が必要なくなり、実行速度が上がります。
また、このプログラムはデータが２件以上ないと、誤動作をします。その可能性がある場合ご記入ください。

回答No.3

kkkkkm

重複の削除ですね。最終行が可変ということでしたら
Cells(Rows.Count, "A").End(xlUp)
が最終行のセルになりますので以下のコードでいかがでしょう。
Sub Example()

Range(Cells(1, "A"), Cells(Rows.Count, "A").End(xlUp)).RemoveDuplicates Columns:=1, Header:=xlNo

End Sub

回答No.2

imogasi

したいことを実現するために考えることが、ずれていると思う。
どういう風にロジックを考えて、実現するか、まずコードを考える前に勉強すべきなんだ。
そのロジックとは、
（１）ソート法
A列でソートすると同じ果物は隣接した行に集まるから、まえ直前の行と同じかをチェックを続けて、同じなら２番目出現以後は、削除するか、他の重複なし集約シートに持っていかない
（２）Find法、
今までの（前行までの）行に同じデータがないかFindで探し、あれば削除か
他の重複なし集約シートに持っていかない
（３）フィルタ法
エクセルの機能を使う前提で、データーフィルター重複するレコードは無視する、の機能をＶＢＡで行う。
（４）エクセル関数で、現在行までにCOUNTIF関数を使って現在行のデータの件数を出し、１であれば初出なので残すようにする。Application.WorksheetFunction.Counif(・・
（５）SQLを使いＳＥＬＥＣＴ文でＤＩＳＴＩＮＣＴを使う
（６）１行前までの全行で、同じ値がないかＩＦ文で聞く
まだ他のやり方があると思う。
ーー
そういうことを勉強すべきだ。上記の方法は、素直なアイデアで、重複をチェックする方法も多い。
＞ActiveCellでやるのでしょうか
なんのことに引っかかっているのか推測できない。
ーー
（３）あたりを勧める。
Ｇｏｏｇｌｅで「ＶＢＡ　Ｆｉｌｔｅｒ」ででも照会すれば、ＶＢＡコード例はすぐわかる。質問コーナーに質問するまでもない。
フィルタの操作があるのを知らないのにＶＢＡをやるというのは、本末転倒的だと思う。

お礼

すごい為になるお言葉感謝します。一体どこから勉強したらいいかわからなくVBA入門を見ましたが、実現のイメージへの道が出来なく困っていました