Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

75318 / 76734

←次へ　｜　前へ→


	【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

3 hits

▼

【5846】データの中からそれぞれ１つだけ抽出してリストを作成したいのですが・・・。 じょると。 03/6/3(火) 13:10