使用Replace(Cell.Value, Chr(10), vbNullString)
去除Cell内容中换行
Sub RemoveLineBreaks()
For Each Cell In Selection
Cell.Value = Replace(Cell.Value, Chr(10), vbNullString)
Next
End Sub
使用Replace(Cell.Value, Chr(10), vbNullString)
去除Cell内容中换行
Sub RemoveLineBreaks()
For Each Cell In Selection
Cell.Value = Replace(Cell.Value, Chr(10), vbNullString)
Next
End Sub