[已解决]请教Excel中如何一次性查找替换A到Z有字母？

ww0000 · 发表于 2012-7-24 19:34

请教Excel中如何一次性查找替换A到Z有字母？
用VBA又是如何完成？

附件中，要达到的效果是：
VBA查找字母，替换成软回车键+字母

乡镇2.rar (6.89 KB, 下载次数: 11)

dongqing1998 · 发表于 2012-7-24 19:44

Sub 替换成软回车()
Dim arr, i%, k&
arr = Range("b5:b" & Range("b65536").End(3).Row)
For i = 1 To UBound(arr)
For k = Len(arr(i, 1)) To 2 Step -1
If Mid(arr(i, 1), k, 1) Like "[a-z,A-Z]" Then
arr(i, 1) = Replace(arr(i, 1), Mid(arr(i, 1), k, 1), Chr(10) & Mid(arr(i, 1), k, 1))
End If
Next
Next
Range("b5").Resize(UBound(arr)) = arr
End Sub

复制代码

ww0000 · 发表于 2012-7-24 20:17

谢谢老师的指点！！！

ww0000 · 发表于 2012-7-24 20:26

dongqing1998 发表于 2012-7-24 19:44

Sub Macro8()
Dim i
For i = 0 To 9
Cells.Replace What:="；" & i, Replacement:="；" & Chr(10) & i
Next i
End Sub

老师，能否象这样的，简化一点，不考虑查找有范围什么的！谢谢

dongqing1998 · 发表于 2012-7-24 20:29

你自己试一下吧。但你的文件中并不全是分号，有的是句号

ww0000 · 发表于 2012-7-24 20:34

dongqing1998 发表于 2012-7-24 20:29
你自己试一下吧。但你的文件中并不全是分号，有的是句号

如果全是分号呢？？
数字可以用
i=0 to 9
字母不行呀？怎么改？

ww0000 · 发表于 2012-7-25 15:19

进一步请教老师!!!!

		自动登录	找回密码
密码			注册