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

lzyamo3057

这还让人不让人编缉数据呀。。。。

lzyamo3057

1. Sub test()
   
2.      Dim rng As Range '
   
3.     For Each rng In Sheet1.UsedRange
   
4.     With rng.Characters(Start:=1, Length:=0).Font
   
5.         .Name = "宋体"
   
6.         .FontStyle = "常规"
   
7.         .Size = 12
   
8.         .ColorIndex = 1
   
9.     End With
   
10.     Next
    
11. End Sub
    

复制代码

adiamond

格式问题很好解决了，上面这位大侠能否帮忙写下这个代码，帮忙把下列数据里的数字去掉？

侯6致诚
侯4致诚
李3欣茹
冷天9宜
冷8天宜
冷天6宜
陶禹1名
陶6禹名
史6松宸
史松8宸
韩平6月
谢7鑫涛
谢6鑫涛
陈2日姝
陈7日姝

lzyamo3057

1. Sub 取汉字()
   
2.     Set RegEx = CreateObject("VBSCRIPT.REGEXP")
   
3.     RegEx.Global = True
   
4.     RegEx.Pattern = "[!-~]"
   
5.     For i = 1 To Range("A65536").End(xlUp).Row
   
6.         Range("B" & i) = RegEx.Replace(Range("A" & i), "")
   
7.     Next i
   
8. End Sub
   

复制代码

香川群子

如果是这样有规律的文字，那么用公式：
=IF(ISNUMBER(-MID(A1,2,1)),LEFT(A1,1)&RIGHT(A1,2),LEFT(A1,2)&RIGHT(A1,1))

规则：
1. 文字一共4个字符
2. 第2或第3字符为数值，不要。

香川群子

lzyamo3057 发表于 2013-3-13 11:19

你这代码：

1. 用For循环，效率低
2. 作用对象为UsedRange，可能伤及无辜


建议修改如下：

1. Sub test()
   
2.     With Selection
   
3.         .Font.ColorIndex = 1
   
4.         .Font.Size = 9
   
5.     End With
   
6. End Sub

复制代码

选中要处理区域后执行，一下子恢复全部字体和颜色的设置即可。

香川群子

adiamond 发表于 2013-3-13 11:21
格式问题很好解决了，上面这位大侠能否帮忙写下这个代码，帮忙把下列数据里的数字去掉？

侯6致诚

用正则替换掉所有数值字符的代码如下：

选中区域后执行宏：

1. Sub RegExpTest()
   
2.     Set RegEx = CreateObject("VBScript.RegExp")
   
3.     RegEx.Global = True
   
4.     RegEx.Pattern = "\d"
   
5.    
   
6.     arr = Selection
   
7.     For i = 1 To UBound(arr)
   
8.         For j = 1 To UBound(arr, 2)
   
9.             arr(i, j) = RegEx.Replace(arr(i, j), "")
   
10.         Next
    
11.     Next
    
12.     Selection = arr
    
13. End Sub
    

复制代码

这个是已经考虑了多行多列区域的代码。

香川群子

直接用工作表Replace方法的代码：

1. Sub ReplaceTest()
   
2.     With Selection
   
3.         For i = 0 To 9
   
4.             .Replace What:=i, Replacement:=""
   
5.         Next
   
6.     End With
   
7. End Sub
   

复制代码

香川群子

这样写更简单……
Sub ReplaceTest()
    With Selection
        For i = 0 To 9
            .Replace i, ""
        Next
    End With
End Sub

lzyamo3057

香川群子 发表于 2013-3-13 12:58
用正则替换掉所有数值字符的代码如下：

选中区域后执行宏： 这个是已经考虑了多行多列区域的代码。
...

你试了代码了没有呢？