如何在两张纸上求和

Question

我有两栏。范围c3：c包含第三张表中的固定值（“ Sus_AC”）。在另一个第四页（“ FR_Data”）中，范围D3：D包含连续值。如果两个范围匹配，则FR_data的第23列将求和并在Sus_AC中设置第7列。我有以下代码，但这没有结果。

Dim i As Long, a As Double
a = 0
For i = 3 To lastRow
If Worksheets("Sus_AC").Cells(i, 3).Value = Worksheets("FR_Data").Cells(i, 4).Value Then
a = a + Worksheets("FR_Data").Cells(i, 23).Value
End If
Worksheets("Sus_AC").Activate
Worksheets("Sus_AC").Cells(i, 3).Value = a
Next i