我有一列数据，因为一些原因，当初是颜色进行区分的，后来数据越来越多，这是我把红颜色的选出来求和，除了用眼睛一条条选以外，有没有简单的办法，用筛选的方法是最好了！

设你的数据在A列，并且有100个，用代码先求出颜色的值，再利用颜色的值进行筛选，以下就是求颜色的代码：Private Sub CommandButton1_Click()Dim i, m As IntegerFor i = 1 To 100m = iCells(m, 2).Value = Cells(i, 1).Interior.ColorIndexNextEnd Sub