怎么修改单元格中的部分内容颜色，而保留其他颜色设置不变

kriis2000

单元格中有内容，而且内容的颜色有黑色也有红色。我使用VBA对这个单元格增加内容后，想将增加的内容标红，其他的内容原本是什么颜色就还保留什么颜色。该怎么实现呢？
我使用了以下代码，但不能保留原来内容的原有颜色。

1. k = Len(Sheet1.Cells(1, 1).Value)
   
2. Sheet1.Cells(1, 1).Value = Sheet1.Cells(1, 1).Value & Chr(10) & Sheet1.Cells(1, 7).Value
   
3. p = Len(Sheet1.Cells(1, 1).Value)
   
4. Sheet1.Cells(1, 1).Characters(k + 1, p - k).Font.Color = -16776961

复制代码

huang1314wei

录制宏，得到相关属性之后，用VBA实现之

kriis2000

huang1314wei 发表于 2018-8-19 22:05
录制宏，得到相关属性之后，用VBA实现之

不行啊，我录过了，录出来的代码如下：必须要知道原来红色字的位置才行，但实际是不确定在哪里的。

1.     Range("A1").Select
   
2.     ActiveCell.FormulaR1C1 = "test1" & Chr(10) & "test2" & Chr(10) & "test3" & Chr(10) & "test4"
   
3.     With ActiveCell.Characters(Start:=1, Length:=12).Font
   
4.         .Name = "Arial"
   
5.         .FontStyle = "常规"
   
6.         .Size = 9
   
7.         .Strikethrough = False
   
8.         .Superscript = False
   
9.         .Subscript = False
   
10.         .OutlineFont = False
    
11.         .Shadow = False
    
12.         .Underline = xlUnderlineStyleNone
    
13.         .ThemeColor = xlThemeColorLight1
    
14.         .TintAndShade = 0
    
15.         .ThemeFont = xlThemeFontNone
    
16.     End With
    
17.     With ActiveCell.Characters(Start:=13, Length:=11).Font
    
18.         .Name = "Arial"
    
19.         .FontStyle = "常规"
    
20.         .Size = 9
    
21.         .Strikethrough = False
    
22.         .Superscript = False
    
23.         .Subscript = False
    
24.         .OutlineFont = False
    
25.         .Shadow = False
    
26.         .Underline = xlUnderlineStyleNone
    
27.         .Color = -16776961
    
28.         .TintAndShade = 0
    
29.         .ThemeFont = xlThemeFontNone
    
30.     End With

复制代码

kriis2000

请大神帮我解决一下吧，谢谢了！

kriis2000

没人能解决吗？

aman1516

kriis2000 发表于 2018-8-21 09:23
没人能解决吗？

循环一下，先用数组记录原内容各字符的字体颜色等属性，添加内容后再设置回去，并把新添加内容设置成红色不就OK 了

kriis2000

如果文字很多，这样做是不是出现一个很大的数组啊？有其他简单方法吗？