Rychlejší vyhledání a zápis?
Napsal: 02 led 2023 18:16
Ahoj. Mistři, nešlo by tento zápis upravit? Pokud mám velké množství záznamů , tak je to pomalé. Dík
Public Sub jedinecneHodnoty()
Worksheets("RK").Range("K:K").ClearContents
Dim hodnoty As Variant
hodnoty = Worksheets("Datovepole").Range("C4:C200003").value
Dim jedinecne As New Collection
Dim hodnota As Variant, jedinecna As Variant
Dim obsahuje As Boolean
For Each hodnota In hodnoty
obsahuje = False
For Each jedinecna In jedinecne
If hodnota = jedinecna Then obsahuje = True
Next jedinecna
If obsahuje = False Then jedinecne.Add hodnota
Next hodnota
Dim i As Long
For i = 1 To jedinecne.Count
Worksheets("RK").Range("K" & i).value = jedinecne(i)
Next i
End Sub
Public Sub jedinecneHodnoty()
Worksheets("RK").Range("K:K").ClearContents
Dim hodnoty As Variant
hodnoty = Worksheets("Datovepole").Range("C4:C200003").value
Dim jedinecne As New Collection
Dim hodnota As Variant, jedinecna As Variant
Dim obsahuje As Boolean
For Each hodnota In hodnoty
obsahuje = False
For Each jedinecna In jedinecne
If hodnota = jedinecna Then obsahuje = True
Next jedinecna
If obsahuje = False Then jedinecne.Add hodnota
Next hodnota
Dim i As Long
For i = 1 To jedinecne.Count
Worksheets("RK").Range("K" & i).value = jedinecne(i)
Next i
End Sub