Excel VBA質問箱 IV

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

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


71871 / 76733 ←次へ | 前へ→

【9355】Re:ユニークな数値を数えたい。
質問  まゆん  - 03/11/30(日) 16:58 -

引用なし
パスワード
   INAさん
こちらも試してみましたがどうしても返ってくる回答は
CELLの数が返ってきます。
下記の内容をそのままExcellシートへあてこんで実行しましたが
ユニークな数の回答は得られませんでした。
私のやり方がおかしいのかなぁ?(涙;;)


▼INA さん:
>Sub Sample()
>Dim i As Long
>Dim cnt As Long
>
>  For i = 2 To Range("A65536").End(xlUp).Row
>  
>     Columns("A:A").AutoFilter _
>     Field:=1, Criteria1:=Cells(i, 1).Value
>    
>     If ActiveSheet.UsedRange.Columns(1). _
>      SpecialCells(xlCellTypeVisible).Count - 1 = 1 Then
>      
>      cnt = cnt + 1
>     End If
>    
>  Next i
>
>  ActiveSheet.AutoFilterMode = False
>  
>  MsgBox "ユニークなデータは、" & cnt & " 件です。"
>
>End Sub

0 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 回答

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