最近做个EXCEL资料，需要在文本前添加一个空格。利用公式，可以解决，但是太多修改麻烦。决定使用宏来实现。
打开需要处理的EXCEL,工具，宏，新建- 内容前加空格。进行编辑。代码如下：
Sub 内容前加空格()
On Error Resume Next
Dim rngTemp As Range, k As Range
Set rngTemp = Application.InputBox("请选择要调整的单元格区域：", "单元格选择", Type:=8)
Application.ScreenUpdating = False
If Not rngTemp Is Nothing Then
For Each k In rngTemp
k = " " & Right(k, 100)
Next
End If
Set rngTemp = Nothing
Application.ScreenUpdating = True
End Sub 清理 sub 前后多余代码。保存。设置宏快捷键，进入EXCEL后，快捷键呼出，选择区域，进行添加。
共有条评论 网友评论