[已解决]求一个去掉.后面的字符的宏,谢谢!

bipl607

刚才爱疯版主做了一个宏,可去掉.com"后面的字符,我尝试改为去掉.后面的字符的宏,却出错了,怎么改才能成功?,请帮忙,谢谢各位高手

最佳答案

月排行榜 / 总排行榜

wayy

2012-2-7 21:38

bipl607 发表于 2012-2-7 21:32
7楼的办法不行吧,我用时不行的

Sub 替换()
    Columns("A:A").Copy Columns("E:E")
   Columns("E:E").Replace What:=".*", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
End Sub

7楼改的录制宏没改完全。

跳转到最佳答案楼层

hrpotter

点的话，应该是\.不能光是.

bipl607

是.作为分界的啊,谢谢

爱疯

hrpotter 发表于 2012-2-7 21:06
点的话，应该是\.不能光是.

2楼说的对。

1. 
   
2. Sub Test7()
   
3.     Dim regex As Object, arr, i%
   
4.     With Sheets("sheet1")
   
5.         arr = .Range("a1:a" & .Range("a65536").End(xlUp).Row)
   
6.     End With
   
7.     Set regex = CreateObject("VBScript.RegExp")
   
8.     With regex
   
9.         .Global = True
   
10.         .Pattern = ".+(?=\.)"
    
11.         For i = 1 To UBound(arr)
    
12.             If .Execute(arr(i, 1)).Count Then
    
13.                 arr(i, 1) = .Execute(arr(i, 1))(0)
    
14.             End If
    
15.         Next i
    
16.     End With
    
17.     [b1].Resize(UBound(arr), 1) = arr
    
18. End Sub

复制代码

爱疯

bipl607 发表于 2012-2-7 21:11
是.作为分界的啊,谢谢

.是有特殊用处的标点符号，在前面加 "\" 后，才代表.符号本身。

砂海

去掉[1].后面的内容.rar (10.14 KB, 下载次数: 2)

2012-2-7 21:14 上传

点击文件名下载附件
函数法

JLxiangwei

1. Sub 替换()
   
2.     Columns("A:A").Copy Columns("E:E")
   
3.     Selection.Replace What:=".*", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
   
4. End Sub
   

复制代码

爱疯

开始不知规律，按说不需这样，好在不长，算了。

bipl607

谢谢版主老师,假如有两个. 以 从左边第一个.为分界,这个宏又怎么改?谢谢!

wayy

就一个点，分列之后不就完事了，还用代码啊，有点大才小用了