[已解决]字符串的修改替换

建筑工人

单元格字符串的修改替换

最佳答案

月排行榜 / 总排行榜

grf1973

2015-11-23 10:48

请看附件。

跳转到最佳答案楼层

fjmxwrs

只有固定的这几种类型是吗?

grf1973

1. Sub 替换()
   
2.     arr = Range("b3:b" & [b65536].End(3).Row)
   
3.     ReDim brr(1 To UBound(arr), 1 To 1)
   
4.     For i = 1 To UBound(arr)
   
5.         x = arr(i, 1)
   
6.         If Len(x) Then
   
7.             If Right(x, 2) = ".0" Then x = Left(x, Len(x) - 2)       '去掉".0"
   
8.             
   
9.             If x Like "□*" Then         '处理带"□"的情况
   
10.                 xrr = Split(x, "*")
    
11.                 If UBound(xrr) = 1 Then   '表示只有一个*
    
12.                     x = xrr(0) & "*" & Replace(xrr(0), "□", "") & "*" & xrr(1)
    
13.                 End If
    
14.             End If
    
15.             
    
16.             For k = 1 To Len(x)  '首字母大写
    
17.                 y = Asc(Mid(x, k, 1))
    
18.                 If (y > 64 And y < 91) Or (y > 96 And y < 123) Then
    
19.                     Mid(x, k, 1) = UCase(Mid(x, k, 1))
    
20.                 Else
    
21.                     Exit For
    
22.                 End If
    
23.             Next
    
24.                
    
25.             For k = Len(x) To 1 Step -1  '尾字母小写
    
26.                 y = Asc(Mid(x, k, 1))
    
27.                 If (y > 64 And y < 91) Or (y > 96 And y < 123) Then
    
28.                     Mid(x, k, 1) = LCase(Mid(x, k, 1))
    
29.                 Else
    
30.                     Exit For
    
31.                 End If
    
32.             Next
    
33.         End If
    
34.         brr(i, 1) = x
    
35.     Next
    
36.     [d3].Resize(UBound(brr), 1) = brr
    
37. End Sub
    

复制代码

grf1973

请看附件。

26709358

用函数可以实现不？