Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Wersja nasza wczorajsza
- -------------------------------------------------------------------
- Dim tableQS()
- Dim tableQSIndex As Integer
- tableQSIndex = 1
- For i = 1 to lastRow
- If Cells(i,1).Value = valueToCompare Then
- tableQS(tableQSIndex) = Cells(i,2).Value
- tableQS(tableQSIndex) = tableQS(tableQSIndex) + 1
- End If
- Next
- ----------------------------------------------------------------------
- Wersja z użyciem biblioteki
- ----------------------------------------------------------------------
- Set fso = CreateObject("Scripting.Dictionary")
- With fso
- .comparemode = 1
- For i = 1 to lastRow
- If Cells(i,1).Value = valueToCompare Then
- .Add .Cells(i,2).Value, Nothing
- End If
- Next
- End With
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement