Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10812 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【19738】重複データを除きたい アロエ 04/11/16(火) 13:57 質問[未読]
【19742】Re:重複データを除きたい IROC 04/11/16(火) 14:22 回答[未読]
【19743】Re:重複データを除きたい アロエ 04/11/16(火) 14:26 回答[未読]
【19745】Re:重複データを除きたい IROC 04/11/16(火) 14:55 回答[未読]
【19748】Re:重複データを除きたい アロエ 04/11/16(火) 15:09 回答[未読]
【19754】Re:重複データを除きたい IROC 04/11/16(火) 15:52 回答[未読]
【19765】Re:重複データを除きたい アロエ 04/11/16(火) 16:28 回答[未読]
【19767】Re:重複データを除きたい IROC 04/11/16(火) 16:33 回答[未読]
【19766】Re:重複データを除きたい モヒモヒ（初心者） 04/11/16(火) 16:31 回答[未読]
【19773】Re:重複データを除きたい Jaka 04/11/16(火) 17:23 回答[未読]
【19776】Re:重複データを除きたい アロエ 04/11/16(火) 18:21 お礼[未読]
【19738】重複データを除きたい
質問  アロエ  - 04/11/16(火) 13:57 -
引用なし
パスワード
   お世話になります。

シートWordにはこのようなデータがあります

　a　b　･･･
1 A　D
2 A　D
3 A　D
4 A　D
5 A　D
6 A　D
7　　A
8　　A
9　　A

上記からAdvacedFilterで重複データを除いたかたちで
シートFilterへコピーしたいのですが、結果こんなようになってしまいました

結果：
A　D　･･･
A　D
A　D
A　A
　 A
　 A

中途半端。。（^^;
どうしたら重複データを取り除くことができるのでしょうか？
AdvancedFilter以外にも方法があるのでしょうか？
宜しくお願いいたします

ThisWorkbook.Worksheets("Word").Range("A1:IV65536").AdvancedFilter _
　　Action:=xlFilterCopy, CopyToRange:=ThisWorkbook.Worksheets _　　　　　　　 ("Filter").Range("A1"), Unique:=True
【19742】Re:重複データを除きたい
回答  IROC  - 04/11/16(火) 14:22 -
引用なし
パスワード
   １列ごと処理してみては如何でしょうか？
【19743】Re:重複データを除きたい
回答  アロエ  - 04/11/16(火) 14:26 -
引用なし
パスワード
   ▼IROC さん：
>１列ごと処理してみては如何でしょうか？
A列のみ、とりあえず問題ないのか確認したのですが
結果かわらずです。
【19745】Re:重複データを除きたい
回答  IROC  - 04/11/16(火) 14:55 -
引用なし
パスワード
   Ａ列だけ抽出してコピー
Ｂ列だけ抽出してコピー
を繰り返しましたか？
【19748】Re:重複データを除きたい
回答  アロエ  - 04/11/16(火) 15:09 -
引用なし
パスワード
   ▼IROC さん：
>Ａ列だけ抽出してコピー
>Ｂ列だけ抽出してコピー
>を繰り返しましたか？
やってみました。
WordWSLastColumn = ThisWorkbook.Worksheets("Word") _
　.Cells(1, Columns.Count).End(xlToLeft).Column '1行目の最後の列
For i = 1 To WordWSLastColumn - 1
　WordWSLastRow = ThisWorkbook.Worksheets("Word") _
　　.Cells(Rows.Count, i).End(xlUp).Row
　ThisWorkbook.Worksheets("Word").Columns(i).AdvancedFilter _
　　Action:=xlFilterCopy, CopyToRange:=ThisWorkbook _
　　.Worksheets("Filter").Columns(i), Unique:=True
Next i

結果はこうでした
A　D
A　D
　 A

おしいところまできているのですが・・・
【19754】Re:重複データを除きたい
回答  IROC  - 04/11/16(火) 15:52 -
引用なし
パスワード
   フィルタオプションには、タイトル行が必要です。
１行目にタイトル行を設けてください。
【19765】Re:重複データを除きたい
回答  アロエ  - 04/11/16(火) 16:28 -
引用なし
パスワード
   ▼IROC さん：
>フィルタオプションには、タイトル行が必要です。
>１行目にタイトル行を設けてください。
シートWordにタイトル行を設けるということでしょうか？
それはできません。
逃げ道は無いのでしょうか？
（別にFileFilterでなくてもいい）
【19766】Re:重複データを除きたい
回答  モヒモヒ（初心者）  - 04/11/16(火) 16:31 -
引用なし
パスワード
   こんにちわ
↓を参考にしてみてはどうですか。
http://www.asahi-net.or.jp/~zn3y-ngi/YNxv9596.html

▼アロエ さん：
>お世話になります。
>
>シートWordにはこのようなデータがあります
>
>　a　b　･･･
>1 A　D
>2 A　D
>3 A　D
>4 A　D
>5 A　D
>6 A　D
>7　　A
>8　　A
>9　　A
>
>上記からAdvacedFilterで重複データを除いたかたちで
>シートFilterへコピーしたいのですが、結果こんなようになってしまいました
>
>結果：
>A　D　･･･
>A　D
>A　D
>A　A
>　 A
>　 A
>
>中途半端。。（^^;
>どうしたら重複データを取り除くことができるのでしょうか？
>AdvancedFilter以外にも方法があるのでしょうか？
>宜しくお願いいたします
>
>ThisWorkbook.Worksheets("Word").Range("A1:IV65536").AdvancedFilter _
> 　　Action:=xlFilterCopy, CopyToRange:=ThisWorkbook.Worksheets _　　　　　　　 ("Filter").Range("A1"), Unique:=True
【19767】Re:重複データを除きたい
回答  IROC  - 04/11/16(火) 16:33 -
引用なし
パスワード
   >それはできません。

一時的に追加して、フィルタ処理が終わったら削除すればよいのでは？
【19773】Re:重複データを除きたい
回答  Jaka  - 04/11/16(火) 17:23 -
引用なし
パスワード
   ちまちまやっているのを見てられないので...。
１行目挿入しちゃっているのでダメかも。

Sub wwwwkw()
Dim SPG As Range
With ThisWorkbook.Worksheets("Word")
　　WordWSLastColumn = .Cells(1, Columns.Count).End(xlToLeft).Column '1行目の最後の列
　　.Rows(1).Insert
　　.Range("A1").Resize(, WordWSLastColumn).Value = "あああ"
　　DoEvents
　　
　　For i = 1 To WordWSLastColumn '- 1
　　　　WordWSLastRow = .Cells(Rows.Count, i).End(xlUp).Row
　　　　'.Range(.Cells(2, i), .Cells(WordWSLastRow, i)).Select
　　　　.Range(.Cells(2, i), .Cells(WordWSLastRow, i)).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
　　　　Set SPG = .Range(.Cells(2, i), .Cells(WordWSLastRow, i)).SpecialCells(xlCellTypeVisible)
　　　　.ShowAllData
　　　　SPG.Copy
　　　　.Cells(Rows.Count, i + 1).End(xlUp).Offset(1).PasteSpecial (xlPasteValues)
　　Next i
　　.Rows(1).Delete
　　Application.CutCopyMode = False
End With
End Su
【19776】Re:重複データを除きたい
お礼  アロエ  - 04/11/16(火) 18:21 -
引用なし
パスワード
   IROCさん。モヒモヒ（初心者）さん。Jaka さん：
一応。さっきのFilterから、strcompで見出し行とコンペアして
一致したら行削除などというロジックで解決しました
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10812 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free