ExcelマクロVBA関数
Filter関数

Filter(sourcesrray, match[, include[, compare]])
sourcearray
必ず指定します。
検索先の 1 次元配列の文字列を指定します。
match
必ず指定します。
検索する文字列を指定します。
include
省略可能です。
sourcearray に指定した配列の各要素の文字列の中に、引数 include が含まれるかどうかを表すブール値を指定します。
include が真 (True) の場合、Filter 関数は、配列の各要素の文字列の中で、引数 match が含まれる配列のサブセットを返します。
include が偽 (False) の場合、Filter 関数は、配列の各要素の文字列の中で、引数 match が含まれない配列のサブセットを返します。
ｃompare
省略可能です。
文字列式を評価するときに使用する文字列比較のモードを表す数値を指定します。
設定する値については、次の「設定値」を参照してください。

定数	値	説明
vbUseCompareOption	-1	Option Compare ステートメントの設定を使用して比較を行います。
vbBinaryCompare	0	バイナリ モードで比較を行います。
vbTextCompare	1	テキスト モードで比較を行います。

※バイナリ モードでは、全角半角、大文字小文字が区別されます。
　 テキストモードでは、全角半角、大文字小文字が区別されません。
sourcearray 内で引数 match に一致する文字列がなかった場合は、Filter 関数は空の配列を返します。
引数 sourcearray が Null 値であるか、1 次元配列でない場合は、エラーになります。
Filter 関数が返す配列は、一致した項目数分だけの要素が含まれています。

Dim MyArray
MyArray = Array("東京都", "神奈川県", "千葉県", "茨城県", "大阪府")
MsgBox Join(Filter(MyArray, "県"), ",") ・・・ "神奈川県,千葉県,茨城県"

同じテーマの記事
新着記事
アクセスランク