Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10848 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【19687】セレクトについて mimi 04/11/15(月) 11:20 質問[未読]
【19688】Re:セレクトについて IROC 04/11/15(月) 11:29 回答[未読]
【19689】Re:セレクトについて Jaka 04/11/15(月) 11:44 回答[未読]
【19690】お返事ありがとうございます。でも。。。 mimi 04/11/15(月) 12:01 質問[未読]
【19693】Re:お返事ありがとうございます。でも。。。 Jaka 04/11/15(月) 12:13 回答[未読]
【19694】お返事ありがとうございます。でも。。。 mimi 04/11/15(月) 12:19 お礼[未読]
【19695】間違ってました Jaka 04/11/15(月) 12:38 回答[未読]
【19687】セレクトについて
質問  mimi  - 04/11/15(月) 11:20 -
引用なし
パスワード
   下記例のように同じ番号があった場合に一人に一つの番号だけをセレクトしたいのですがどうしたらいいでしょうか？
　　1
　　1
　　2　　
　　3
　　3
　　3
　 ----　　セレクト後　下記のようにしたいのですが。。
　　1
　　2
　　3
【19688】Re:セレクトについて
回答  IROC  - 04/11/15(月) 11:29 -
引用なし
パスワード
   >一人に一つの番号だけをセレクトしたい
意味がよく解らないのですが・・・
【19689】Re:セレクトについて
回答  Jaka  - 04/11/15(月) 11:44 -
引用なし
パスワード
   こんにちは。

データ　→　フィルタ　→　フィルタオプション
「列見出し…」のアラートは無視して「ＯＫ」。
フィルタオプションの設定にチェック

で、重複の無いデータが表示されます。
こういう事ですよね？
【19690】お返事ありがとうございます。でも。。。
質問  mimi  - 04/11/15(月) 12:01 -
引用なし
パスワード
   ▼Jaka さん：
こんにちは。
早速のお返事ありがとうございます。
>データ　→　フィルタ　→　フィルタオプション
>「列見出し…」のアラートは無視して「ＯＫ」。
>フィルタオプションの設定にチェック
>重複の無いデータ。。にチェックマークを入れて
　ＯＫ　したのですが、セレクトしてくれないんです。
【19693】Re:お返事ありがとうございます。でも。...
回答  Jaka  - 04/11/15(月) 12:13 -
引用なし
パスワード
   コードにすると。
こんな感じ。（１行目は項目として。）

Dim sss As Range
Range(Range("A2"), Range("A65536").End(xlUp)).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Set sss = Range(Range("A2"), Range("A65536").End(xlUp)).SpecialCells(xlVisible)
sss.Select
Set sss = Nothing
【19694】お返事ありがとうございます。でも。。。
お礼  mimi  - 04/11/15(月) 12:19 -
引用なし
パスワード
   ▼Jaka さん：
ありがとうございます。
コードでの処理ができないもので、何とか関数で処理できないかと思ったものですから。。
【19695】間違ってました
回答  Jaka  - 04/11/15(月) 12:38 -
引用なし
パスワード
   すみません。

　　　　　　 '↓ A1です。項目行からフィルタして
Range(Range("A1"), Range("A65536").End(xlUp)).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
　　　　　　 '項目行の下から表示されているセルを...です。
Set sss = Range(Range("A2"), Range("A65536").End(xlUp)).SpecialCells(xlVisible)
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10848 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free