excel2003 重複削除マクロ

質問

winxp he sp2, office2003
AB重複銘柄を削除し、CDに書くマクロを教えてください。
この例では、日経３００投信　チャイナボーチーが重複しています。
AB(銘柄コードと銘柄名)は一体です。データは沢山あります。
列がずれて見にくいです。

A　　　　B　　　　　　　C　　　D
1313　ＫＯＤＥＸ２００　1313　ＫＯＤＥＸ２００
1319　日経３００投信　　1319　日経３００投信
1319　日経３００投信　　1380　秋川牧園
1380　秋川牧園　　　　　1381　アクシーズ
1381　アクシーズ　　　　1412　チャイナボーチー
1412　チャイナボーチー　1724　シンクレイヤ
1412　チャイナボーチー　1735　伊田テクノス
1412　チャイナボーチー　1753　土屋ツーバイホーム
1724　シンクレイヤ　　　1783　Ａ．Ｃホール
1735　伊田テクノス
1753　土屋ツーバイ
1783　Ａ．Ｃホール

よろしくお願いします。

回答No.3

merlionXX · ベストアンサー

> 実は、1行目からデータになっています。

1行目は項目名と判断されてしまいますので提示の例ではうまく行きましたが、正しくありません。
では、マクロ作業上でダミーで先頭に1行追加し、項目を振り、終了後にダミー行を削除するように変えてみました。
逐条で解説もつけておきます。

Sub test03()
Dim x As Long 'xは長整数と宣言
With ActiveSheet 'アクティブなシートで
.Rows("1").Insert Shift:=xlDown 'ダミー行挿入
.Range("A1") = "Code" 'ダミー項目１
.Range("B1") = "Name" 'ダミー項目２
x = .Cells(.Rows.Count, 1).End(xlUp).Row '最終行取得
.Range("A1:B" & x).Select '範囲選択
Selection.AdvancedFilter Action:=xlFilterInPlace, Unique:=True '重複を表示しない
Selection.Copy .Range("C1") 'コピーしてC1以降に貼り付け
.ShowAllData 'すべてを表示
.Rows("1").Delete Shift:=xlUp 'ダミー行削除
End With
End Sub

お礼

希望通りできました。
ありがとう御座いました。

回答No.2

merlionXX

#1のmerlionXXです。
表の形式によってはRange("A1").CurrentRegionではうまく取得できない場合がありますので.Range("A1:B" & x)と明示するようにしました。
こちらでためしてください。

Sub test02()
Dim x As Long
With ActiveSheet
x = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range("A1:B" & x).Select
Selection.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Selection.Copy .Range("C1")
.ShowAllData
End With
End Sub

補足

ありがとう御座います。OKでした。
実は、1行目からデータになっています。
よろしくお願いします。

回答No.1

merlionXX

前提条件
A列が銘柄コード、B列が名称とします。
表はセルA1から始まっており、1行目が項目名で2行目以降にデータがあり、データに空白行がないものとします。

以下をお試しください。

Sub test01()
With ActiveSheet
.Range("A1").CurrentRegion.Select
Selection.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Selection.Copy
.Range("C1").PasteSpecial
.ShowAllData
End With
Application.CutCopyMode = False
End Sub