4个回答
展开全部
我来个宏的,可灵活替换的
Sub 替换字符()
Dim arr
Dim R&, x&, T1&, T2&, iC&
Dim T3 As String
iC = InputBox("请输入数据所在列号")
R = Cells(65536, iC).End(xlUp).Row
arr = Range(Cells(1, iC), Cells(R, iC)).Value
T1 = InputBox("请输入要替换字符的起始位置")
T2 = InputBox("请输入要替换的字符个数")
T3 = InputBox("请输入替换成的字符或字符串")
For x = 1 To UBound(arr)
If arr(x, 1) <> "" Then
arr(x, 1) = Application.Replace(arr(x, 1), T1, T2, T3)
End If
Next x
Cells(1, iC).Resize(UBound(arr)) = arr
End Sub
可实现指定的数据列,指定被替换字符的起始位置和个数,指定替换成的字符或字符串,结果写入原指定的数据列中。数据量大时,用这个宏,可以很方便的替换您想替换的字符且运行速度快。
Sub 替换字符()
Dim arr
Dim R&, x&, T1&, T2&, iC&
Dim T3 As String
iC = InputBox("请输入数据所在列号")
R = Cells(65536, iC).End(xlUp).Row
arr = Range(Cells(1, iC), Cells(R, iC)).Value
T1 = InputBox("请输入要替换字符的起始位置")
T2 = InputBox("请输入要替换的字符个数")
T3 = InputBox("请输入替换成的字符或字符串")
For x = 1 To UBound(arr)
If arr(x, 1) <> "" Then
arr(x, 1) = Application.Replace(arr(x, 1), T1, T2, T3)
End If
Next x
Cells(1, iC).Resize(UBound(arr)) = arr
End Sub
可实现指定的数据列,指定被替换字符的起始位置和个数,指定替换成的字符或字符串,结果写入原指定的数据列中。数据量大时,用这个宏,可以很方便的替换您想替换的字符且运行速度快。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
=REPLACE(A1,4,1,"A")
上例是把第四位替换成字母A
上例是把第四位替换成字母A
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
=replace(A1,4,1,替换内容)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |