Excel VBA質問箱 IV

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

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


75318 / 76734 ←次へ | 前へ→

【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
1 hits

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

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