Excel VBA質問箱 IV

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

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


4791 / 13646 ツリー ←次へ | 前へ→

【54445】教えて下さい moeruakik92 08/3/13(木) 12:10 質問[未読]
【54448】Re:教えて下さい statis 08/3/13(木) 14:27 回答[未読]
【54453】Re:教えて下さい moeruakik92 08/3/13(木) 17:36 お礼[未読]

【54445】教えて下さい
質問  moeruakik92  - 08/3/13(木) 12:10 -

引用なし
パスワード
   Sub 集計()
  Sheets("原簿").Range("G2:G171").AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=Range("A2"), Unique:=True

End Sub

という命令をしてリストを作りだそとしています。原簿のG列には、数字が入っています。どうしてもはじめの"G2"に入っている値だけ重複してしまいます。原因が原簿シートの"G2"と同じ値が入っているセルの書式などが異なるためかと思いいろいろ試しましたが、解決しません。
どのようにしたら良いか。ご教授ください。

【54448】Re:教えて下さい
回答  statis  - 08/3/13(木) 14:27 -

引用なし
パスワード
   ▼moeruakik92 さん:
こんにちわ。
>Sub 集計()
>  Sheets("原簿").Range("G2:G171").AdvancedFilter Action:=xlFilterCopy, _
>    CopyToRange:=Range("A2"), Unique:=True
>
>End Sub
>
>という命令をしてリストを作りだそとしています。原簿のG列には、数字が入っています。どうしてもはじめの"G2"に入っている値だけ重複してしまいます。原因が原簿シートの"G2"と同じ値が入っているセルの書式などが異なるためかと思いいろいろ試しましたが、解決しません。
>どのようにしたら良いか。ご教授ください。

そのよ仕様ですのでしかたないですね。
両シートの1行目は同じ項目ですか?
同じなら下記で良いのでは。
Sheets("原簿").Range("G1:G171").AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=Range("A1"), Unique:=True

違う場合は2行目を削除するとか

【54453】Re:教えて下さい
お礼  moeruakik92  - 08/3/13(木) 17:36 -

引用なし
パスワード
   ▼statis さん:

>
>そのよ仕様ですのでしかたないですね。
>両シートの1行目は同じ項目ですか?
>同じなら下記で良いのでは。
>Sheets("原簿").Range("G1:G171").AdvancedFilter Action:=xlFilterCopy, _
>    CopyToRange:=Range("A1"), Unique:=True
>
>違う場合は2行目を削除するとか

凄いです。おっしゃるとおりで、両シートの1行目が違っていました。同じにして、両方とも1行目からと変えたところ、バッチでしてた。
半日以上解決できなっかたことが、これでやっと解決出来ました。
ほんとに、本当にありがとう、ございました。感謝!、感謝!!です。

これからも研鑽を積み頑張ります。

4791 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free