请问VB高手,替换"Replace"里的替换前内容能否用通配符表示

Function Replace1(temp As String, temp1 As String, temp2 As String, temp3 As Long)
Do Until Left$(temp, Len(temp1)) <> temp1
temp = Right$(temp, Len(temp) - Len(temp1))
Loop
If temp3 > 0 Then
For i = 1 To temp3
temp = temp2 & temp
Next i
End If
Replace1 = temp
End Function

1、将上面的代码复制进去
2、然后就可以像你说的那样使用replace1(原字符串，不想要的字符串,用来替换的字符，个数)
3、举例说明
原来的字符串是qqq123456
如果你想用z来替换q，并且z要出现2次，那么你可以这么写
replace1("qqq123456","q","z",2)

4、需要说明一下，这个是按照你上面说到的样子来写的，只适合替换最前面的字符，如果替换中间或后面的，就需要修改代码了。

替换空格
do
aa=replace(aa," "," ")
loop until instr(aa," ")=0

运行后剩下的都是两个空格了。如果原来的只有一个空格的，还是一个，换不了

如果有一个空格，或没有空格的，想也要2个空格，就用 xiaobingking的方法

你可以循环 替换每行所有空格

然后每行前边 +2个

Sub Macro1()
Dim i As Integer
[a1] = Replace([a1], " ", "")
[a1] = Replace([a1], " ", "")
[a1] = Replace([a1], Chr(10), "")
For i = 1 To 3
If i = 1 Then
[a1] = Replace([a1], i, " " & i)
Else
[a1] = Replace([a1], i, Chr(10) & " " & i)
End If
Next i
End Sub

到底想说什么啊。。。。。。