アンダーバーと全大文字、全小文字に対応
Excel VBA
https://pastebin.com/CAMjBffj