VBA求助：指定位置替换多个结果

webmaster85

VBA求助：希望A列中“1:”替换为空值，“;2:”、“;3:”、“;4:”等替换为“|”符号，替换结果在B列显示

替换前	替换后
1:姓名;2:性别;3:职业;4:爱好	姓名|性别|职业|爱好
1:姓名;2:性别;3:职业;5:爱好	姓名|性别|职业|爱好
1:姓名;2:性别;3:职业;6:爱好	姓名|性别|职业|爱好
1:姓名;2:性别;3:职业;7:爱好	姓名|性别|职业|爱好
1:姓名;2:性别;3:职业;8:爱好	姓名|性别|职业|爱好
1:姓名;2:性别;3:职业;9:爱好	姓名|性别|职业|爱好
1:姓名;2:性别;3:职业;10:爱好	姓名|性别|职业|爱好
1:姓名;2:性别;3:职业;11:爱好	姓名|性别|职业|爱好
1:姓名;2:性别;3:职业;12:爱好	姓名|性别|职业|爱好
1:姓名;2:性别;3:职业;13:爱好	姓名|性别|职业|爱好
1:姓名;2:性别;3:职业;14:爱好	姓名|性别|职业|爱好
1:姓名;2:性别;3:职业;15:爱好	姓名|性别|职业|爱好
1:姓名;2:性别;3:职业;16:爱好	姓名|性别|职业|爱好
1:姓名;2:性别;3:职业;17:爱好	姓名|性别|职业|爱好
1:姓名;2:性别;3:职业;18:爱好	姓名|性别|职业|爱好
1:姓名;2:性别;3:职业;19:爱好	姓名|性别|职业|爱好
1:姓名;2:性别;3:职业;20:爱好	姓名|性别|职业|爱好
1:姓名;2:性别;3:职业;21:爱好	姓名|性别|职业|爱好
1:姓名;2:性别;3:职业;22:爱好	姓名|性别|职业|爱好
1:姓名;2:性别;3:职业;23:爱好	姓名|性别|职业|爱好

liulang0808

直接替换就可以了吧
excel自带的

duquancai

本来我已经 写了完整的代码 提交了，但是审核被删除了，不知道为什么，不想再写了。

webmaster85

朱荣兴 发表于 2018-8-16 08:15
研究一下vba中的replace函数

VBA中的replace只研究出A列直接替换和替换到B列只替换一种结果，没研究出在不改变数据源的情况下实现多种替换结果

hopeson2010

1. Sub ek_sky()
   
2.     Dim arr As Variant
   
3.     Dim dis As Object
   
4.     Dim i As Integer
   
5.        Set dis = CreateObject("vbscript.regexp")
   
6.        arr = Range("A1:B" & Cells(Rows.Count, 1).End(xlUp).Row)
   
7.        With dis
   
8.           .Global = True
   
9.           .Pattern = "[\d|\:]"
   
10.              For i = 1 To UBound(arr)
    
11.                 If .test(arr(i, 1)) Then
    
12.                    arr(i, 2) = Replace(.Replace(arr(i, 1), ""), ";", "|")
    
13.                 End If
    
14.             Next i
    
15.        End With
    
16. Range("a1").Resize(UBound(arr), 2) = arr
    
17. End Sub

复制代码

zzzxxxmmm

学习了。。。。。。。。。。

Zamyi

1. With Range("A:A")
   
2.   .Replace ";*:", "|"
   
3.   .Replace "1:", ""
   
4. End With

复制代码

一把小刀闯天下

duquancai 发表于 2018-8-16 08:10
本来我已经 写了完整的代码 提交了，但是审核被删除了，不知道为什么，不想再写了。

哈哈，没有理由、简单粗暴

今天有事刚上来看到，再这样毫无理由的删帖咱就撤了

webmaster85

hopeson2010 发表于 2018-8-16 08:44

替换前        1:姓名;2:性别;3:职业;4:爱好       
替换后       姓名|性别

请问，如何实现这个效果替换，就是除了替换数字、“;”、“.”还要把最后两列文字替换，按照目前函数就是还要再做一次替换，请教怎样实现

谢谢！