使用VBA代码删除多个换行符
以下VBA代码也可以帮助您删除工作表中的所有换行符。 请这样做:
1。 点击开发人员>Visual Basic中或按Alt + F11键打开Microsoft Visual Basic应用程序窗口,然后点击插页>模块,然后输入以下代码:
VBA代码:删除工作表中的多个换行符
Sub RemoveCarriage() 'Update 20131216 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) For Each Rng In WorkRng Rng.Value = Replace(Rng.Value, Chr(10), "") Next End Sub
2。 然后按F5键来运行此代码,然后会出现一个提示框,提示您选择要删除换行符的范围,请参见屏幕截图:
3。 然后点击OK并且所选内容的所有换行符都已删除。
使用Kutools for Excel删除多个换行符
在这种情况下,有时您可能会忘记如何使用“查找和替换”功能或不熟悉代码来删除多个换行符,Kutools for Excel可以帮助你解决这个问题。
Kutools for Excel:具有300多个方便的Excel加载项,可以在30天内免费试用,没有任何限制。