CiNiiからのデータ（西暦の切り取り）

上記のノートにおいて、「Mac対応・正規表現なしのVBAコード」を試行していましたが、誤りが見つかりました。このコードでは、

「労働法律旬報 (1909) 67-73, 2018-04」

のようなデータから　1909　を切り取って、西暦データとしてしまいました。KH Coderにかけたあと、外れ値が出ていたので、気がついたのです。

そこで右端（末尾）から文字列をスキャンし、最初に見つかった4桁の数字を抽出するように指示しました。

これでうまくいくはずです。最初のコードでほとんど誤りがなかったので、うまくいかない場合があることに気づきませんでしたが、今回は3000件ぐらいのデータを一括処理したので、７件ぐらい完全な外れ値になり（もし1909や2035のような外れ値になっていなければ、このままミスを見逃していたでしょう）、ようやく気づくことができました。