如何引用Exce委喜少l单元格中的颜色和标注。

你可以将公式结果转为数值。
复制该列，在原位置右击鼠标，“选择性粘贴”，选“数值”，确定。
然后再排序。

这个要分两个步骤来做

假设一列数据是A1：A3分别是1,2,3，它们的和在A4里面
后面指定数是B1的数字是 1.5
步骤1：
那么A4的公式是 =if(sum(A1:A3)>=B1,"",sum(A1:A3))
意思是： 如果A1：A3的和大于B1的数字，则单元格为空，否则等于A1：A3的和。
步骤2： 把A1：A3单元格设置条件格式，如果A4=“”，则A1：A3字体颜色设为你想要的格式

代码如下。
打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。
 

 
1帮234567891011121314Sub thbys()Dim i As LongDim n As Integer许上Dim s As StringFor i = 1 To Cells(Rows.Count, "A").<a hr味半操由某量ef="https://www.baidu.com/s?wd=End&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPj顺却乱宣传群切斯呼养抗m4nH00T1Y3n1DdnjD1rHTYPvnYmW630AP8IA3qPjfsn1bkrjKxm映硫LKz0ZNzUjdCIZwsrBtEXh9GuA7EQhF9pywdQhPEUiqkIyN1IA-EUBt1njf3P1nkPWbYPjcYPHnzPjf" target="_blank" class="baidu-highlight">End</a>(xlUp).Row    With Range("A" & i)        s = .Value        .Value = Replace(.Value, "y", "o")        For n = 1 To L袁终同基剧印未财题述en(s)            If Mid(s, n, 1) = "y" Then .Characters(Start:=n, Length:=1).Font.Color = <a href="https://www.baidu.com/s?wd=RGB&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1Y3n1DdnjD1rHTYPvnYmW630AP8IA3qPjfsn1bkrjKxmLKz0ZNzUjdCIZwsrBtEXh9GuA7EQhF9pywdQhPEUiqkIyN1IA-EUBt1njf3P1nkPWbYPjcYPHnzPjf" target="_blank" class="baidu-highlight">RGB</a>(255, 0, 0)        <a href="https://www.baidu.com/s?wd=Next&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1Y3n1DdnjD1rHTYPvnYmW630AP8IA3qPjfsn1bkrjKxmLKz0ZNzUjdCIZwsrBtEXh9GuA7EQhF9pywdQhPEUiqkIyN1IA-EUBt1njf3P1nkPWbYPjcYPHnzPjf" target="_blank" class="baidu-highlight">Next</a>    <a href="https://www.baidu.com/s?wd=End&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1Y3n1DdnjD1rHTYPvnYmW630AP8IA3qPjfsn1bkrjKxmLKz0ZNzUjdCIZwsrBtEXh9GuA7EQhF9pywdQhPEUiqkIyN1IA-EUBt1njf3P1nkPWbYPjcYPHnzPjf" target="_blank" class="baidu-highlight">End</a> With<a href="https://www.baidu.com/s?wd=Next&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1Y3n1DdnjD1rHTYPvnYmW630AP8IA3qPjfsn1bkrjKxmLKz0ZNzUjdCIZwsrBtEXh9GuA7EQhF9pywdQhPEUiqkIyN1IA-EUBt1njf3P1nkPWbYPjcYPHnzPjf" target="_blank" class="baidu-highlight">Next</a><a href="https://www.baidu.com/s?wd=End&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1Y3n1DdnjD1rHTYPvnYmW630AP8IA3qPjfsn1bkrjKxmLKz0ZNzUjdCIZwsrBtEXh9GuA7EQhF9pywdQhPEUiqkIyN1IA-EUBt1njf3P1nkPWbYPjcYPHnzPjf" target="_blank" class="baidu-highlight">End</a> Sub追问 : 要是设定个范围呢，把从A10-A30的y改成o，其它的不改动，这个公式怎么修改？谢谢
还有一个，要是yy不再中间呢，在前面或者后面呢，这个公式有怎么修改？
追答 : 如果设定范围，代码更改如下。y在哪个地方都无所谓。1234567891011121314Sub thbys()Dim rg As RangeDim n As IntegerDim s As StringFor Each rg In Range("A10:A30")    With rg        s = .Value        .Value = Replace(.Value, "y", "o")        For n = 1 To Len(s)            If Mid(s, n, 1) = "y" Then .Characters(Start:=n, Length:=1).Font.Color = RGB(255, 0, 0)        Next    End WithNextEnd Sub

EXCEL目前还没有这个功能。