この記事では、定義された範囲内の一意の値をカウントするカスタム関数を作成します。

この例の生データは、行の乱数で構成されています。この例では、各行の一意の番号の数を数えたいと思います。

ArrowRaw

行内の一意の数値の数を見つけるための「CountUniqueValues」カスタム関数を作成しました。この関数は、入力として範囲を取り、数値の一意のカウントを返します。

ArrowOutput

ロジックの説明

一意の数の数を取得するためのカスタム関数「CountUniqueValues」を作成しました。このカスタム関数では、コレクションオブジェクトのオブジェクトを作成しました。このコレクションオブジェクトは、一意の番号のリストを作成するために使用されます。一意の番号のリストを取得したら、コレクション内のアイテムの数を取得します。

コードの説明

Application.Volatileが使用されるのは、ワークブックでセル値が変更されるたびに再計算されるためです。

エラー時再開次はエラーを処理するために使用されます。

コードについては以下に従ってください

Option Explicit

Function CountUniqueValues(InputRange As Range) As Integer

Dim CellValue As Variant, UniqueValues As New Collection

Application.Volatile

'For error Handling

On Error Resume Next

'Looping through all the cell in the defined range

For Each CellValue In InputRange

UniqueValues.Add CellValue, CStr(CellValue)  ' add the unique item

Next

'Returning the count of number of unique values

CountUniqueValues = UniqueValues.Count

End Function

このブログが気に入ったら、FacebookやFacebookで友達と共有してください。

皆様からのご意見をお待ちしております。私たちの仕事を改善し、あなたのために改善する方法をお知らせください。 [email protected]までご連絡ください