以下のコードを使用して、定義された値が存在する列の右側にあるの列文字を推定しようとしています。たとえば、D1 ='郵便番号'の場合、insert_col'E'と等しくなります。
これは、値'Postcoade'がに存在する場合は機能しますtitle_rangeが、存在しない場合は、最後の行でエラーが発生します（タイプの不一致）。
Matchのドキュメントによると、ルックアップ値が範囲に存在しない場合、Excelエラー「N / A」が返さxlErrNAれますが、関数を終了するためのチェックは機能しません。
' Work out the column to insert
insert_col_pos = Application.Match("Postcode", title_range, 0)
If insert_col_pos = xlErrNA Then Exit Function ' Exit if the column to insert next to does not exist
insert_col = GetInsertCol(insert_col_pos + 1)
誰かが私が間違っていることを知っていますか？ありがとう。