[已解决]VBA编写字符内容应

vbyou127

VBA编写字符内容应

最佳答案

月排行榜 / 总排行榜

爱疯

2016-5-1 11:19

2楼是最强大的解决方式
3楼是最基本的思路
4楼我猜考点是LTrim 函数


Sub Click()
    Dim str$
    str = "*******A*BC*DEF*G****"
    str = VBA.Replace(str, "*", Chr(32))
    str = VBA.LTrim(str)
    str = VBA.Replace(str, Chr(32), "*")
    MsgBox str
End Sub

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. [a1] = "***a*b*cd***"
   
3. With CreateObject("vbscript.regexp")
   
4.     .Pattern = "^\*+"
   
5.     .Global = True
   
6.     MsgBox .Replace([a1], "")
   
7. End With
   
8. End Sub

复制代码

lichuanboy44

楼上很好，我也用普遍的练练手
用mid逐个取出每个字符后，常规的a like [A-Za-z]和 a="~*"等都不行。

1. Sub try()
   
2.     s = "*******A*BC*DEF*G****"
   
3.     For i = 1 To Len(s)
   
4.         a = Mid(s, i, 1)
   
5.         If Asc(a) <> 42 Then
   
6.             p = i
   
7.             Exit For
   
8.         End If
   
9.     Next
   
10.     b = Mid(s, p, Len(s) - p + 1)
    
11.     MsgBox b
    
12. End Sub

复制代码

爱疯

2楼是最强大的解决方式
3楼是最基本的思路
4楼我猜考点是LTrim 函数


Sub Click()
    Dim str$
    str = "*******A*BC*DEF*G****"
    str = VBA.Replace(str, "*", Chr(32))
    str = VBA.LTrim(str)
    str = VBA.Replace(str, Chr(32), "*")
    MsgBox str
End Sub