[已解决]求助：如何删除单元格内不同字体及颜色的内容

dsmch

1. Sub Macro1()
   
2. Dim arr, i&, j%
   
3. arr = Range("a1").CurrentRegion
   
4. For i = 1 To UBound(arr)
   
5.     For j = 1 To UBound(arr, 2)
   
6.         zf = arr(i, j): p = ""
   
7.         For k = 1 To Len(zf)
   
8.             With Cells(i, j).Characters(k, 1).Font
   
9.                 If .Size <> 1 And .ColorIndex <> 2 Then p = p & Mid(zf, k, 1)
   
10.             End With
    
11.         Next
    
12.         arr(i, j) = IIf(p <> "", "'" & p, "")
    
13.     Next
    
14. Next
    
15. With Range("a1").CurrentRegion
    
16.     .Clear
    
17.     .Font.Name = "宋体"
    
18.     .Font.Size = 9
    
19.     .Font.ColorIndex = 1
    
20.     .Value = arr
    
21. End With
    
22. End Sub

复制代码

ccwsyjch

我试了一下，太好了、帮了我大忙。谢谢dsmch