【EXCEL】逆相補鎖を出す関数を自作したい

・プライマーを発注する際に、塩基配列の逆相補鎖を求めることがしばしばある。

・基本的にソフトウェアでプライマーをデザインするが、EXCEL関数で逆相補鎖を求めることができるとちょっと楽しそうだと考え、練習がてらに以下の関数を作成した。

Function 逆相補鎖(a)

a = StrReverse(a)
a = LCase(a)

a = Replace(a, "a", "a1")
a = Replace(a, "t", "t1")
a = Replace(a, "c", "c1")
a = Replace(a, "g", "g1")

a = Replace(a, "a1", "t")
a = Replace(a, "t1", "a")
a = Replace(a, "c1", "g")
a = Replace(a, "g1", "c")

逆相補鎖 = a

End Function

・大文字はすべて小文字に変換することにした。

・動作不良、その他不利益に関して、当方は一切補償しない。

・終わり。