https://training-course-material.com/index.php?action=history&feed=atom&title=Unique_values_from_rangeUnique values from range - Revision history2026-05-13T09:38:50ZRevision history for this page on the wikiMediaWiki 1.45.1https://training-course-material.com/index.php?title=Unique_values_from_range&diff=24101&oldid=prevCesar Chew at 18:38, 25 November 20142014-11-25T18:38:34Z<p></p>
<p><b>New page</b></p><div>[[Category:PL]]<br />
[[Category:VBA]]<br />
<br />
<syntaxhighlight lang="vb"><br />
Sub UniqueValues_Collection()<br />
<br />
Dim komorka As Range, wynik As String, licznik As Integer<br />
Dim UnikalnaWartosc As New Collection<br />
On Error Resume Next<br />
<br />
For Each komorka In Selection<br />
UnikalnaWartosc.Add komorka.Value, CStr(komorka.Value)<br />
If Err.Number = 0 Then<br />
licznik = licznik + 1<br />
wynik = wynik & UnikalnaWartosc(licznik)<br />
End If<br />
ERR.CLEAR<br />
Next<br />
<br />
MsgBox wynik<br />
<br />
End Sub<br />
</syntaxhighlight><br />
<br />
<br />
Przed użyciem słownika zainstaluj bibliotekę '''Microsoft Scripting Runtime'''<br />
<br />
<br />
<syntaxhighlight lang="vb"><br />
Sub UniqueValues_dictionary()<br />
Dim UnikalnaWartosc As Dictionary<br />
Dim komorka As Range, wynik As String, licznik As Integer, x<br />
<br />
Set UnikalnaWartosc = New Scripting.Dictionary<br />
<br />
For Each komorka In Selection<br />
<br />
If Not UnikalnaWartosc.Exists(komorka.Value) Then<br />
UnikalnaWartosc.Add komorka.Value, komorka<br />
End If<br />
Next<br />
<br />
MsgBox Join(UnikalnaWartosc.Keys, vbCrLf)<br />
<br />
End Sub<br />
<br />
</syntaxhighlight></div>Cesar Chew