엑셀/vba가 문자를 찾고 대체하고 두 문자를 윗 첨자로 바꾼다

Question

내가 원하는 것은 "#"문자를 찾아 그것을 제거하고 위 첨자 뒤에 2 문자를 만드는 것이다. - 작품

pos = InStr(mycell.Value, "#") 
    If pos > 0 Then 
     mycell.Replace What:="#", Replacement:="" 
     mycell.Characters(Start:=pos + 1, Length:=2).Font.Superscript = True 
    End If 

난 단지 대체 : I`ve이 코드를 얻었다. 내가 쓴 문자를 윗 첨자로 쓸 때 - 작동한다. 둘 다 - 교체 만합니다.

Answer 1

pos + 1은 Replace 메소드로 문자를 삭제했기 때문에 pos 일 필요가 있습니다. 테스트를 마치고 Excel 2010에서 제대로 작동하는 것으로 보입니다.

pos = InStr(myCell.Value, "#") 
If pos > 0 Then 
    myCell.Replace What:="#", Replacement:="" 
    myCell.Characters(Start:=pos, Length:=2).Font.Superscript = True 
End If