小白急救大神支招！

啦啦401

各位大神好，小弟今遇到一个office表格问题，就如图中所示，出生日期一列看到的是年月日时间，我想要的就是这个数字，但编辑栏看到的是带数字的字符串，因为小弟是小白，现急救大神写一VB代码给我，谢谢！ 受种者帐册_2015-10-27.rar (135.3 KB, 下载次数: 43)

2015-10-30 16:58 上传

点击文件名下载附件

shenghua8

好变态的表，
正常显示的字号是9磅，
非正常显示的字号很小。

不仅是“出生日期”存在这种情况，
“受种者编号”也存在这种情况。

要将字号不是9磅的字符剔除掉。

我先帮你看出问题，但我用公式解决不了。
然后，你找 VBA 高手帮你解决问题是对的。

.

啦啦401

shenghua8 发表于 2015-10-30 18:21
好变态的表，
正常显示的字号是9磅，
非正常显示的字号很小。

这个是广东金苗防疫系统导出来的，里面各列的数据都有字符串，只是有中文的字符串让我用彭希仁的“常用工具”去掉了，但对于全部是数字来的日期列，我就去掉不了。现在年终要校对数据，数据是三年的，比较多，如果通过人工一个一个地去校对的话，会花去很多时间，人也累，且这工是常做的工，这次不解决，下次还得烦。所以跑上来跟各路大神道教，希望给个方法，在此跪谢了！

啦啦401

这里有一个跟我同样的例子，但我看不懂怎么做http://club.excelhome.net/thread-781466-1-1.html

shenghua8

看来那个帖子已解决。
那楼主就邀请 蓝桥玄霜 和 wj2368 两位高手来回答呗。

啦啦401

shenghua8 发表于 2015-10-30 19:42
看来那个帖子已解决。
那楼主就邀请 蓝桥玄霜 和 wj2368 两位高手来回答呗。

好，多谢支招。

lzxdy

可以试试：

1. Sub test()
   
2. Application.ScreenUpdating = False
   
3. For j = 2 To 2482
   
4. n = Len(Cells(j, 2))
   
5. m = Len(Cells(j, 4))
   
6. For i = 1 To n
   
7.    z = Cells(j, 2).Characters(Start:=i, Length:=1).Font.Size
   
8.    If z = 9 Then c = c & Cells(j, 2).Characters(Start:=i, Length:=1).Text
   
9. Next
   
10.     Cells(j, 2).Value = c
    
11.     Cells(j, 2).Font.ColorIndex = xlAutomatic
    
12.     Cells(j, 2).Font.Size = 9
    
13.     c = ""
    
14. For i = 1 To m
    
15.    zz = Cells(j, 4).Characters(Start:=i, Length:=1).Font.Size
    
16.    If zz = 9 Then c = c & Cells(j, 4).Characters(Start:=i, Length:=1).Text
    
17. Next
    
18.     Cells(j, 4).Value = c
    
19.     Cells(j, 4).Font.ColorIndex = xlAutomatic
    
20.     Cells(j, 4).Font.Size = 9
    
21.     c = ""
    
22. Next
    
23. Application.ScreenUpdating = True
    
24. End Sub

复制代码

啦啦401

lzxdy 发表于 2015-10-30 20:39
可以试试：

好的，谢谢！，不懂再向你请教！

shenghua8

lzxdy 发表于 2015-10-30 20:39
可以试试：

大神的代码，超级好用啊！