在 VBA 中删除列中的空白处

在 VBA 中删除列中的空白处

我正在尝试解析两列数据,以便不再存在空格。我发现这段代码删除了尾随空格和前导空格,但没有删除其中包含的空格。我应该对这段代码进行哪些更改,以便删除所有空格

Sub Remove_Spaces()

Dim rng As Range

Set rng = Range("C:D")
rng.Value = Application.Trim(rng)

End Sub

谢谢

答案1

我对您的要求的回答不是基于 VBA 代码或宏。

它可以通过几个步骤实现:首先,我在下面给出我使用过的数据和得出的结果的图像,以供参考。

样本数据

逐步解决方案

谢谢。

答案2

该声明

Selection.Replace " ", ""

PeterH 建议) 对我有用。

相关内容