Excel VBA質問箱 IV

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

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


71876 / 76733 ←次へ | 前へ→

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

引用なし
パスワード
   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 回答

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