<求助>从未遇到的问题：excel单元格显示内容与编辑栏不一致

gimo

这软件把一些前缀数字设置成极度小的字体,然后又用白色字体隐藏掉.我有个方法,虽然比较笨,不知道对楼主有用不

你显示出的那些实际数据,不知道有没有规律,比方2102020301200500016,假设所有数据都是同样的7个数字开头,2102020开头,那你把2102020替换为/2102020,然后用"/"分列掉,你就可以得到你想要的数据了

香川群子

lzyamo3057 发表于 2013-3-13 13:27
你试了代码了没有呢？

我试过了呀。

你发现什么问题了么？分享一下吧。

lzyamo3057

香川群子 发表于 2013-3-13 14:46
我试过了呀。

你发现什么问题了么？分享一下吧。

解决例子的话，没有问题。但代码仅是排除数字。

香川群子

lzyamo3057 发表于 2013-3-13 15:28
解决例子的话，没有问题。但代码仅是排除数字。

排除数字以外，楼主或者你，还有其它要求么？

香川群子

gimo 发表于 2013-3-13 14:06
这软件把一些前缀数字设置成极度小的字体,然后又用白色字体隐藏掉.我有个方法,虽然比较笨,不知道对楼主有用 ...

呵呵，这样的软件设计很变态。

直接输出需要部分的数据不就好了。

adiamond

lzyamo3057, 香川群子 谢谢你们两位写的代码，因为时间紧迫中午我在网上其他地方搜到了个自定义函数用上了
Function RemoveNums(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
    RemoveNums = Temp
End Function

由于软件里的数据是有一定保密性需要的，所以可能导出的时候用随机的格式+数字的方法加了密。

香川群子

自定义函数的话，这样更简单：

1. Function f(t)
   
2.     For i = 0 To 9
   
3.         t = Replace(t, i, "")
   
4.     Next
   
5.     f = t
   
6. End Function

复制代码

香川群子

或者用正则的自定义函数这么写：

1. Function TQ(txt)
   
2.     With CreateObject("VBScript.RegExp")
   
3.         .Global = True
   
4.         .Pattern = "\d"
   
5.         TQ = .Replace(txt, "")
   
6.     End With
   
7. End Function

复制代码

香川群子

adiamond 发表于 2013-3-13 17:13
lzyamo3057, 香川群子 谢谢你们两位写的代码，因为时间紧迫中午我在网上其他地方搜到了个自定义函数用上了
...

你搜到的东西算法不行。

即使是用for循环检查每一个字符，也应该这么写：

1. Function RemoveNum(txt)
   
2.     For i = 1 To Len(txt)
   
3.         t = Mid(txt, i, 1)
   
4.         If Not IsNumeric(t) Then s = s & t
   
5.     Next
   
6.     RemoveNum = s
   
7. End Function

复制代码

超级套套

应该是自定义了格式