Question

EXCEL VBA 问题求高手给个简单的代码

遍历选定区域，如单元格中出现2个或以上的空格，就替换成一个空格，代码如何与呀？

Answer 1

这个简单，代码如下：

Option Explicit

Sub x()
    Dim i, r, n, s, ss, c
    For Each r In Selection.Cells
        s = r.Value
        ss = ""
        n = Len(s)
        For i = 1 To n
            c = Mid(s, i, 1)
            If Right(ss, 1) <> " " Or c <> " " Then ss = ss & c
        Next i
        r.Value = ss
    Next r
End Sub

运行前：

运行后：

Answer 2

Sub aaa()
Dim str As String
Dim r1 As Range
str = InputBox("输入范围如:A1:B2")
For Each r1 In Range(str)
If r1 >= 2 Then
r1 = ""
End If
Next
End Sub