Excel VBA質問箱 IV

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

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


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

【5846】データの中からそれぞれ1つだけ抽出してリストを作成したいのですが・・・。 じょると。 03/6/3(火) 13:10 質問
【5856】Re:データの中からそれぞれ1つだけ抽出して... BOTTA 03/6/3(火) 15:47 回答
【5858】Re:データの中からそれぞれ1つだけ抽出して... じょると。 03/6/3(火) 18:24 お礼

【5846】データの中からそれぞれ1つだけ抽出して...
質問  じょると。  - 03/6/3(火) 13:10 -

引用なし
パスワード
   基本事項でしたら申し訳ございません

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

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

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

**********************************************
B列
真弓
弘田
バース
掛布
岡田
佐野
平田
木戸
福間
長崎
**********************************************

【5856】Re:データの中からそれぞれ1つだけ抽出し...
回答  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:データの中からそれぞれ1つだけ抽出し...
お礼  じょると。  - 03/6/3(火) 18:24 -

引用なし
パスワード
   自分の望んでいたデータを取得することができました。
本当にありがとうございました
失礼いたします。

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