小白求救大神解决办法！

enjoytian

大神们请教个问题，日期单元格里显示和上面显示的不一样，没法排序，这表里面所有的单元格都这样，里面都有数字和英文，现在是想这表里单元格去掉里面的数字英文字符串，只保留原本的汉字和日期型号，这去处数字和英文的代码怎么写呢？，在论坛里面搜了一下，http://club.excelhome.net/thread-1238611-1-1.html这位的和我的情况一样，但是帖子里面的代码我试了没用呀，现在请大神写一下我这个的代码，小白急救，谢谢！

as42065300

这样的显示还是头一次见：代码没效率单可以用自己测试下

1. Sub GetFontColor()
   
2. Dim rg As Range, r As Range
   
3. Dim stValue As String, re As String
   
4. Set rg = Union([c2:c294], [e2:e294])
   
5. For Each r In rg
   
6.     stValue = r.Value
   
7.     For i = 1 To Len(stValue)
   
8.         If r.Characters(i, 1).Font.Color = 0 Then re = re & Mid(stValue, i, 1)
   
9.     Next
   
10.     r.Value = re
    
11.     re = ""
    
12. Next
    
13. With Range("c:e").Font
    
14.     .Color = 0
    
15.     .Name = "宋体"
    
16.     .Size = 10
    
17. End With
    
18. End Sub

复制代码

一把小刀闯天下

'比较奇怪第一次看到有这单元格，试一下

Option Explicit

Sub test()
  Dim i, j, k, t, arr
  Application.ScreenUpdating = False
  For i = 2 To Cells(Rows.Count, "a").End(xlUp).Row
    For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
      If Len(Cells(i, j)) Then
        t = vbNullString
        For k = 1 To Len(Cells(i, j))
          If Cells(i, j).Characters(Start:=k, Length:=1).Font.Size = 9 Then
            t = t & Mid(Cells(i, j), k, 1)
          End If
        Next
        Cells(i, j) = t
      End If
  Next j, i
  With [a1].CurrentRegion.Font
    .Size = 9
    .Color = vbBlack
  End With
  Application.ScreenUpdating = True
End Sub

enjoytian

一把小刀闯天下 发表于 2018-8-22 22:33
'比较奇怪第一次看到有这单元格，试一下

Option Explicit

大神！你这个代码超级好用，一次性解决问题了，太谢谢了！

enjoytian

as42065300 发表于 2018-8-22 22:15
这样的显示还是头一次见：代码没效率单可以用自己测试下

谢谢，用了3楼的代码啦