提高大量收藏的性能

Question

我有这段代码：

For Each Subitem In lstGastoResumen_Area
    Dim MesRealSub
    Dim MesPPTOSub

    MesRealSub = Aggregate y In lstGastoResumen Where y.Area = Subitem And y.Anio = Anio1 Into Sum(y.FebRealSoles)
    MesPPTOSub = Aggregate y In lstGastoResumen Where y.Area = Subitem And y.Anio = Anio1 Into Sum(y.FebPptoSoles)
Next

其中lstGastoResumen是一个HashSet，它有超过80,000行，lstGastoResumen_Area有20行。这段代码需要将近20秒才能完成。 有谁能告诉我如何提高速度。