Excel VBA问题：移除指定列数据空格并保留表头（代码无效）

你的代码没法正常工作，核心问题是Range对象的语法写错了，另外用Select操作也没必要，直接定位目标区域更靠谱。

原代码的问题 #

Range(2,5, cells(rows.Count,5).End(xlUp)) 这个写法不符合VBA的Range语法，正确的跨单元格区域写法应该是Range(起始单元格, 结束单元格)，所以你这行代码根本没选中想要的区域，自然没法替换空格。

修正后的代码 #

下面的代码直接定位第5列从第2行到最后一行有数据的区域，批量移除空格：

Sub RemoveSpace()
    Dim targetRange As Range
    ' 定位目标区域：第5列，从第2行到该列最后一行有数据的单元格
    Set targetRange = Range(Cells(2, 5), Cells(Rows.Count, 5).End(xlUp))
    
    ' 直接对目标区域执行替换，去掉所有空格
    targetRange.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
End Sub

额外提示：处理非打印空格 #

如果你的数据里有全角空格、制表符这类看不见的空白字符，可以用Trim和Clean函数组合处理，确保彻底清除所有空白：

Sub RemoveAllSpaces()
    Dim cell As Range
    Dim targetRange As Range
    
    Set targetRange = Range(Cells(2, 5), Cells(Rows.Count, 5).End(xlUp))
    
    ' 遍历区域每个单元格，清除所有空白字符
    For Each cell In targetRange
        If Not IsEmpty(cell.Value) Then
            cell.Value = WorksheetFunction.Clean(WorksheetFunction.Trim(cell.Value))
        End If
    Next cell
End Sub

• Trim：清除单元格内容首尾的普通空格
• Clean：清除非打印字符（比如换行符、制表符）

内容的提问来源于stack exchange，提问作者user20114520