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

在单元格数组中按颜色求和

1 个答案: