Guest User

Untitled

a guest
May 22nd, 2019
60
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Wersja nasza wczorajsza
  2. -------------------------------------------------------------------
  3.  
  4. Dim tableQS()
  5. Dim tableQSIndex As Integer
  6.  
  7.  
  8. tableQSIndex = 1
  9. For i = 1 to lastRow
  10.  
  11. If Cells(i,1).Value = valueToCompare Then
  12.  
  13. tableQS(tableQSIndex) = Cells(i,2).Value
  14. tableQS(tableQSIndex) = tableQS(tableQSIndex) + 1
  15.  
  16. End If
  17.  
  18. Next
  19.  
  20. ----------------------------------------------------------------------
  21. Wersja z użyciem biblioteki
  22. ----------------------------------------------------------------------
  23.  
  24. Set fso = CreateObject("Scripting.Dictionary")
  25.  
  26. With fso
  27. .comparemode = 1
  28.  
  29. For i = 1 to lastRow
  30. If Cells(i,1).Value = valueToCompare Then
  31. .Add .Cells(i,2).Value, Nothing
  32. End If
  33. Next
  34.  
  35. End With
RAW Paste Data