[已解决]vba 如何替换前10位的指定字符？ 用宏命令解决

relaxg

如值 2012-12-16 18-24 替换结果为 2012*12*16 18-24；
查找数值中前10位，包含“-”的关键字，替换为“*”，求解
我的数值在A列，得到的结果也是在A列，希望VBA解决

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2014-10-21 09:33

1. Sub a()
   
2. [a1] = Replace(Left([a1], 10), "-", "*") & Right([a1], Len([a1]) - 10)
   
3. End Sub

复制代码

跳转到最佳答案楼层

baksy

数据在A1时；
=SUBSTITUTE(LEFT(A1,10),"-","*")&MID(A1,11,9)

2012-12-16 18-24

2012*12*16 18-24

relaxg

baksy 发表于 2014-10-21 09:13
数据在A1时；
=SUBSTITUTE(LEFT(A1,10),"-","*")&MID(A1,11,9)

可否用VBA解决，我的数值确实在A列，写入的结果也是在A列

relaxg

baksy 发表于 2014-10-21 09:13
数据在A1时；
=SUBSTITUTE(LEFT(A1,10),"-","*")&MID(A1,11,9)

可否用VBA解决，我的数值确实在A列，写入的结果也是在A列

这儿有肥猫

1. Sub a()
   
2. [a1] = Replace(Left([a1], 10), "-", "*") & Right([a1], Len([a1]) - 10)
   
3. End Sub

复制代码

su45

VBA就用5楼的吧！

qh8600

1. Sub demo()
   
2.     Dim str As String
   
3.     str = Left(Range("a1"), 16)
   
4.     Range("a1") = Replace(str, "-", "*", , 2)
   
5. End Sub

复制代码