vba有个数据内容需要替换，但是替换后文本格式会发生变化，显示有问题！

daijunneng

麻烦大神帮忙解答！！！
源代码如下：



Sub 修改格式()
For Each Sht In Sheets
  Sht.UsedRange.Replace "幢  ", "-"
  Next
End Sub

我要把excel中的特定文字变成-（减号），如：4幢  2001    用replace替换后会改变文本格式 显示变成apr-01   我希望显示4-2001，这个代码要怎么修改？求大神指点，不能再单元格内加任何字符，因为表格需要导入其他系统，怕出错！

daijunneng

提前改过默认的文本格式，替换后还是会改成自定义中的mmm-yy格式