比如我原来的格式是这样的，我要怎么设置单元格才能复制完事出来下面的效果，因为我要复制的东西很多
我用的WPS 不是EXLCE07...说错了
第1个回答 2013-09-28
alt+f11 插入 模块 把下面的复制进去 然后可以用函数RN =rn(单元格)
Function RN(theString As String)
Dim eachChar, Temp As String
Dim i As Integer
Temp = ""
For i = 1 To Len(theString)
eachChar = Mid(theString, i, 1)
If Asc(eachChar) < 48 Or Asc(eachChar) > 57 Then
Temp = Temp & eachChar
End If
Next
RN = Temp
End Function
Function RN(theString As String)
Dim eachChar, Temp As String
Dim i As Integer
Temp = ""
For i = 1 To Len(theString)
eachChar = Mid(theString, i, 1)
If Asc(eachChar) < 48 Or Asc(eachChar) > 57 Then
Temp = Temp & eachChar
End If
Next
RN = Temp
End Function
第2个回答 2013-09-28
如果不是经常操作，并且字母中不混有数字，可以选中范围后（比如选中B1：B10），用查找替换法把数字替换为空（查找0替换为空，查找对象替换为空、、、）。
有10步就完成了，也费不了多大事。
有10步就完成了，也费不了多大事。
第3个回答 2013-09-28
做一个vba正则自定义函数追问
怎么做啊 = =我对函数不太懂。
追答把表格发至422714303@qq.com
本回答被提问者采纳第4个回答 2013-09-28
这个公式，试了一下能用。
SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(B9,0,""),1,""),2,""),3,""),4,""),5,""),6,""),7,""),8,""),9,"")
SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(B9,0,""),1,""),2,""),3,""),4,""),5,""),6,""),7,""),8,""),9,"")
第5个回答 2013-09-28
全部复制完后用查找替换就可以解决了。
