Excel VBA質問箱 IV

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

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


71873 / 76733 ←次へ | 前へ→

【9353】Re:ユニークな数値を数えたい。
回答  ichinose  - 03/11/30(日) 16:44 -

引用なし
パスワード
   こんにちは。
>あの〜。恐れ入りますもうひとつ質問させてください。
>ExcelのCellの中に下記のような表があると例えます。
>
>データ
>001
>003
>004
>001
>001
>004
>005
>006
>007
>
>上記の表でユニークな数値の数を数えたいのですがどのようにして
>かぞえられますか? 上記の表を例にすると答えは6です。
>同じ数字はカウントしないようにしたいのですが、Filter機能等をつかってみたりしたのですが、違う答えが返ってきます。どのVBAをつかえばよいのでしょうか?ご教示願います。
数だけなら、関数でも可能ですよ。
例のデータがセルA1〜A9に入っているとすると、
例えば、セルB1に
「=SUM(1/COUNTIF(A1:A9,A1:A9))」
配列を使用していますから、セルから抜けるときはEnterキーではなく
ctrl+shift+enterキーを押して下さい。
これをVBAでするなら

Sub test()
  MsgBox [=SUM(1/COUNTIF(A1:A9,A1:A9))]
End Sub
こんな方法もあります。

1 hits

【9348】ユニークな数値を数えたい。 まゆん 03/11/30(日) 15:45 質問
【9349】Re:ユニークな数値を数えたい。 INA 03/11/30(日) 16:06 回答
【9355】Re:ユニークな数値を数えたい。 まゆん 03/11/30(日) 16:58 質問
【9356】Re:ユニークな数値を数えたい。 INA 03/11/30(日) 17:51 回答
【9360】Re:ユニークな数値を数えたい。 INA 03/11/30(日) 18:02 回答
【9353】Re:ユニークな数値を数えたい。 ichinose 03/11/30(日) 16:44 回答
【9429】Re:ユニークな数値を数えたい。自己レス ichinose 03/12/4(木) 7:58 発言
【9477】Re:ユニークな数値を数えたい。自己レス bykin 03/12/4(木) 21:01 回答
【9526】Re:ユニークな数値を数えたい。自己レス ichinose 03/12/7(日) 11:28 お礼
【9357】Re:ユニークな数値を数えたい。 りん 03/11/30(日) 17:54 回答

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