помогите ускорить макрос (выборка уникальных по 2-м условиям)

[kievlyanin]

PHP код:

Sub test()

For i = 1 To ActiveSheet.PivotTables("ÑâîäíàÿÒàáëèöà1").PivotFields("Îáúåêò").PivotItems.Count
If ActiveSheet.PivotTables("ÑâîäíàÿÒàáëèöà1").PivotFields("Îáúåêò").PivotItems(i).Visible = True _
Then gitem = ActiveSheet.PivotTables("ÑâîäíàÿÒàáëèöà1").PivotFields("Îáúåêò").PivotItems(i): Exit For
Next i


ReDim argfld(1, 1)

With Sheets("BD")
For i = 2 To .Cells(400000, "A").End(xlUp).Row

If (.Cells(i, "B") = gitem And .Cells(i, "A") = "1C_fakt") _
Or (.Cells(i, "B") = gitem And .Cells(i, "A") = "po_aktam_fakt") _
Or (.Cells(i, "B") = gitem And .Cells(i, "A") = "Ïëàí") Then

For ii = 1 To UBound(argfld, 2)

If .Cells(i, "F").Value = argfld(1, ii) Then Exit For

If ii = UBound(argfld, 2) Then
ReDim Preserve argfld(1, UBound(argfld, 2) + 1)
argfld(1, UBound(argfld, 2)) = .Cells(i, "F").Value
End If
Next ii

End If

Next i
End With




End Sub 


код рабочий но с увеличением базы начал слишком долго думать - как можно его оптимизировать/ускорить?

[IgorGO]

может так:

Sub test()
  Dim s As String
  For i = 1 To ActiveSheet.PivotTables("NaiaiayOaaeeoa1").PivotFields("Iauaeo").PivotItems.Count
    If ActiveSheet.PivotTables("NaiaiayOaaeeoa1").PivotFields("Iauaeo").PivotItems(i).Visible = True _
    Then gitem = ActiveSheet.PivotTables("NaiaiayOaaeeoa1").PivotFields("Iauaeo").PivotItems(i): Exit For
  Next i
  With Sheets("BD")
    For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
      If .Cells(i, "B") = gitem And InStr("1C_faktpo_aktam_faktIeai", .Cells(i, "A")) > 0 Then
        If InStr(s, .Cells(i, "F")) = 0 Then s = s & .Cells(i, "F") & Chr(9)
      End If
    Next i
  End With
  argfld = WorksheetFunction.Transpose(Split(s, Chr(9)))
End Sub

только все это
NaiaiayOaaeeoa1, Iauaeo, Ieai
замените на кириллицу

[kievlyanin]

да .. быстрее .. а такой вопрос - при увеличении базы еще более значительно .. например раза в два-три (сечас 100 тыс строк) .. будт ли быстрее если работать не с самим листом (With Sheets("BD")....) а загонять обрабатываемый диапазон в переменную?

[IgorGO]

можно все посортировать по колонке В
найти первый gitem, найти количество gitem
в итоге обрабатываете не весь массив, а только нужные строки

[Hugo121]

Если работать не с ячейками, а с массивом этих данных - будет быстрее в 43 раза. Я замерял