根据单元格阵列中的颜色求和

Question

我想通过颜色执行求和我只需要这个来执行一种颜色并且将总和输出到单个单元格。附加的是我目前拥有的代码，它看起来并没有正确地携带单元格的值。

For j = 1 To nCols 
    For i = 1 To nRows 

     If Worksheets("LG").Cells(i, j).Interior.ColorIndex = 6 Then 

      vResult = ActiveCell.Value 
     End If 
      vResultf = vResultf + vResult 
    Next i 
Next j 



Worksheets("Function Select").Range("B4").Value = vResultf 

Answer 1

Dim c As Range, j, i, vResultf 

For j = 1 To nCols 
    For i = 1 To nRows 
     Set c = Worksheets("LG").Cells(i, j) 
     If c.Interior.ColorIndex = 6 Then vResultf = vResultf + c.Value 
    Next i 
Next j 

Worksheets("Function Select").Range("B4").Value = vResultf