VBAで数字の一致判定方法と処理の効率化について

質問

• エクセル2003でVBAを使用して、数字の一致判定と処理の効率化について質問です。
• 特定の列の値を基準にして、ループで行を比較し、一致した値を抽出する処理を行っています。
• 新たに「01」や「00001」と「0001」を同じ値として扱いたい場合、どのような処理をすればよいか教えてください。

回答No.1

keithin

＞不特定な文字数の文字列に対して「ALLZERO」かどうか

そういう手順を組んでしまうなり，関数を作成してしまえばどうとでもなります。
例：
dim buf as string
buf = "0000"
if application.substitute(buf, "0", "") = "" then
msgbox "buf is all zero"
end if

＞他の手

val関数で数値化してしまう手もあります。
例：
dim buf as string
buf = "0010"
msgbox val(buf)

ワークシート上で数式によって数字の文字列を数値化してしまい，そちらでフィルタをかける手もあります。
例：
A列にそういった文字列が記入されている
D列でそれらを数値化する
range("D2:D" & range("A65536").end(xlup).row).formula = "=A2+0"
range("D:D").autofilter field:=1, criteria1:="=1"

オートフィルタの代わりにadvancedfilterを使ってみる手もあります。マクロ以前に「フィルタオプションの設定」のエクセルの機能について習熟しておく必要があります。

お礼

勉強不足でした。

助かりました、ありがとうございます。