在工作表标签处单击鼠标右键,点“查看代码”,在代码窗口中输入如下内容:
Sub 去掉所有换行符() Cells.Replace What:=Chr(10), _ Replacement:="", _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _ MatchCase:=False, _ SearchFormat:=False, _ ReplaceFormat:=False End Sub
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/28502651/viewspace-764644/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/28502651/viewspace-764644/