[已解决]用VBA如何替换掉单元格中部分下划线或输入空格的下划线。

gavincar

已尝试用替换的方法去做，但只要替换掉一个字符，所有的下划线就不见了。
图中实例见附件。 book.zip (6.09 KB, 下载次数: 5)

2015-1-6 23:43 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2015-1-9 17:16

像这样用下划线不好。
1）输入内容后，整行位置都发生变化了。
2）不方便读取内容。

建议，比如学校占用一个单元格，校名占用另1个单元格。其它同理。

跳转到最佳答案楼层

zjdh

Sub Macro1()
    Cells.Font.Underline = xlUnderlineStyleNone
End Sub

gavincar

zjdh 发表于 2015-1-7 08:06
Sub Macro1()
    Cells.Font.Underline = xlUnderlineStyleNone
End Sub

谢谢你的回复，不过你这个好像是所有的都要加上下划线吧。
我想部分内容（如空格）加上下划线

zjdh

你到底是要下划线还是不要啊？？

gavincar

zjdh 发表于 2015-1-8 21:31
你到底是要下划线还是不要啊？？

要啊。
你看那个图片是：
学校：+很多空格组成。
然后，空格的下方加下划线。

爱疯

像这样用下划线不好。
1）输入内容后，整行位置都发生变化了。
2）不方便读取内容。

建议，比如学校占用一个单元格，校名占用另1个单元格。其它同理。

gavincar

爱疯 发表于 2015-1-9 17:16
像这样用下划线不好。
1）输入内容后，整行位置都发生变化了。
2）不方便读取内容。

谢谢，如果没办法，只能用这种方法了。

爱疯

比如，
A1是"学校:"
B1是"清华大学"，并设置下划线格式。

其它同理。简便，也好提取。