excel实现指定区域删除自动换行吗

关键字：excel 更新时间：2018-03-06 21:42:50 184次访问

Sub macro1()

Dim arr(), y%, dz$, x%, n%, k%, S As Range

y = MsgBox("自动换行的区域选择好了吗？" & Chr(10) & _

"好了，请按“是”。 " & Chr(10) & _

"没好，请按“否”后，重来。", vbYesNo)

If y <> 6 Then Exit Sub

dz = Selection.Address

x = Selection.Count

ReDim arr(1 To x)

For Each S In Range(dz)

If S <> "" Then

n = n + 1

arr(n) = S

End If

Next

Range(dz).ClearContents

For Each S In Range(dz)

k = k + 1

S.Value = arr(k)

If k = n Then Exit For

Next

End Sub

选中ABC列、右击删除就可以了。

相关标签：excel