Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13337 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【5846】データの中からそれぞれ１つだけ抽出してリストを作成したいのですが・・・。 じょると。 03/6/3(火) 13:10 質問
【5856】Re:データの中からそれぞれ１つだけ抽出して... BOTTA 03/6/3(火) 15:47 回答
【5858】Re:データの中からそれぞれ１つだけ抽出して... じょると。 03/6/3(火) 18:24 お礼
【5846】データの中からそれぞれ１つだけ抽出して...
質問  じょると。  - 03/6/3(火) 13:10 -
引用なし
パスワード
   基本事項でしたら申し訳ございません

**********************************************
A列に
真弓
弘田
真弓
バース
掛布
掛布
岡田
佐野
平田
佐野
岡田
真弓
木戸
福間
福間
長崎
**********************************************
というデータがあるとします。

B列にA列のデータを全件検索して
それぞれ1つだけ抽出して下のようにリスト化したいのですが、
ボタンを押したタイミングで自動実行したいので、
フィルタオプションを使用せず、VBで実行したいのですが・・・。

おわかりになります方ご教授いただきたくよろしくお願い申し上げます。

**********************************************
B列
真弓
弘田
バース
掛布
岡田
佐野
平田
木戸
福間
長崎
**********************************************
【5856】Re:データの中からそれぞれ１つだけ抽出し...
回答  BOTTA  - 03/6/3(火) 15:47 -
引用なし
パスワード
   じょると。さん、こんにちは。
ユニークデータの抽出には、いろいろな方法があると思いますが、
Excel機能のメニューにある「データ」→「統合」を使ってみました。

Sub aaa()
Dim LstRow As Long
　　LstRow = Range("A65536").End(xlUp).Row 'A列の最終行を取得
　　Range("B:C").ClearContents
　　Range("B1:B" & LstRow).Value = 1 'B列に1を入力して「統合」の準備

　　Range("C1").Consolidate Sources:="R1C1:R" & LstRow & "C2", _
　　　　Function:=xlSum, TopRow:=False, LeftColumn:=True
　　'B列、D列がじゃまなら下記の行を追加
　　Range("B:B,D:D").Delete
End Sub
【5858】Re:データの中からそれぞれ１つだけ抽出し...
お礼  じょると。  - 03/6/3(火) 18:24 -
引用なし
パスワード
   自分の望んでいたデータを取得することができました。
本当にありがとうございました
失礼いたします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13337 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free