如何用VBA脚本删除一列末尾中出现的空格

您可以使用以下的VBA代码来删除一列末尾中出现的空格：

Sub RemoveTrailingSpaces()
    Dim LastRow As Long
    Dim i As Long
    
    LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row   '获取最后一行
    
    For i = 1 To LastRow
        If Len(Trim(Range("A" & i).Value)) <> 0 Then   '判断单元格是否为空
            Range("A" & i).Value = RTrim(Range("A" & i).Value)   '删除末尾空格
        End If
    Next i
End Sub

请将代码中的"A"修改为你要操作的列字母，可以根据需要更改。此代码将删除该列中每个非空单元格中的末尾空格。