| 楼主 wqfzqgk |
Sub 删除选区内alt回车() Selection.Replace Chr(10), "" End Sub Function 分离alt回车(rng As Range, Optional 方式 As Integer = 0)'可作为数组函数 If IsMissing(方式) Or 方式 = 0 Then 分离alt回车 = Split(rng, Chr(10))'横向 Else 分离alt回车 = Application.WorksheetFunction.Transpose(Split(rng, Chr(10)))'纵向 End If End Function |
| 2楼 eliane_lei |
进来学习!谢谢分享! |
| 3楼 绿篱 |
跟队学习 谢谢分享 |