SHARE
TWEET

Untitled

a guest May 22nd, 2019 58 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top