|
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
|
|