以下是遍历Excel VBA范围并删除空格之前以及空格的文本的解决方法的代码示例：

Sub RemoveSpaces()
    Dim rng As Range
    Dim cell As Range
    Dim text As String
    
    ' 设置要遍历的范围
    Set rng = Range("A1:A10")
    
    ' 循环遍历每个单元格
    For Each cell In rng
        ' 检查单元格的值是否为空格或以空格开头
        If Trim(cell.Value) <> cell.Value Then
            ' 保存单元格的值
            text = cell.Value
            
            ' 删除空格之前以及空格的文本
            cell.Value = Trim(cell.Value)
            
            ' 输出删除前后的文本
            Debug.Print "Before: " & text
            Debug.Print "After: " & cell.Value
        End If
    Next cell
End Sub

在上面的示例代码中，我们首先设置要遍历的范围，然后使用For Each循环遍历范围中的每个单元格。在循环中，我们使用Trim函数来判断单元格的值是否为空格或以空格开头。如果是，则使用Trim函数删除空格之前以及空格的文本，并输出删除前后的文本。