删除Trail逗号而不删除颜色格式

Question

我找到了这个vba，它修剪了后面的逗号，但是它改变了我的颜色格式。

可以保留颜色格式吗？

电流码

Function removetrailcomma(txt As String) As String
    If Right(txt, 1) = " " Or Right(txt, 1) = "," Then
        removetrailcomma = removetrailcomma(Left(txt, Len(txt) - 1))
    Else
        removetrailcomma = txt
    End If
End Function

当前单元格-Peter(黑色字体)，第一级(红色字体)，

当前代码结果-Peter(黑色字体)，一级(黑色字体)

预期结果-Peter(黑色字体)，一级(红色字体)

​

​

Answer 1

问题是，您正在尝试编辑单元格，方法是取出文本，更改文本，然后将文本放回。您正在处理的文本不具有字符串的固有格式。文本的颜色是范围的属性(详见Font.Color性质 )。所以当你把字符串放回单元格时，你会擦除单元格的格式。

若要在不消除格式设置的情况下更改单元格中的文本，可以更容易地处理单元格本身的Range对象。这里有一个可以做你想做的事情的函数：

Sub CleanupCell(InputCell As Range)
    Dim DataLen As String, DeleteChar As String
    
    'Take in last character in cell
    DeleteChar = Right(InputCell.Value, 1)
    
    'Delete the last character in the cell if a comma or space
    If (DeleteChar = "," Or DeleteChar = " ") Then
        DataLen = Len(InputCell.Value)
        InputCell.Characters(DataLen, 1).Delete
    End If
End Sub

该函数不会消除格式设置，因为它不会覆盖单元格中的文本，只会从单元格的末尾删除一个字符。这是基于较旧的Sx答案的。