マクロなしの力技というか地道な置換かね
置換済みの記号をつけて否定戻り読みで除外して最後に記号を消す
(?<=\([1-4],)5(?=\)) → 1★
(?<=\([1-4],)4(?=\)) → 2★
(?<=\([1-4],)2(?<!★)(?=\)) → 4
(?<=\([1-4],)1(?<!★)(?=\)) → 5
([12])★ → \1
5回って絶妙に面倒くさいな