>>812
どちらの場合もネスト（入れ子）して一気にやるより、段階踏んでやる方が簡単だしあとで修正しやすいです。

ワークシート関数でやるなら、
A列に元の文字列、B列にphonetic(A1)、C列にsubstitute(B1,略）、D列にasc(略）

VBAでやるなら変数myStringなどにして、
myString=replace(cells(i,1), 略)
myString=strconv(myString, 16 + 8)
cells(i,2)=myString

なお、どちらの場合もスペースが半角と全角の両方あるなら、削除を2回する必要がある。