🚀 go-pugleaf

On Jun 29, 6:19 am, Jacek <a...@ola.pl> wrote:
> Ten kod w kolumnie B wstawi ">1" w przypadku, gdy wartosc w A wystepuje
> wiecej niz 1 raz:
>
> Sub qq()
> x = 1
> z = 0
> While Cells(x, 1) <> ""
>   y = 1
>   While Cells(y, 1) <> ""
>     If x <> y Then
>       If Cells(x, 1) = Cells(y, 1) Then Cells(x, 2) = ">1"
>     End If
>     y = y + 1
>   Wend
>   x = x + 1
> Wend
> End Sub

Witam,

Dzieki za podpowiedzi, mam teraz cos takiego  i wreszcie dziala:

Sub give_day_arr()

Dim qday() As Variant
Dim item As Variant
Dim i As Integer 'liczy elementy tabeli
Dim x As Integer 'wewnetrzna petla sprawdza czy wartosc komorki juz
sie pojawila
Dim a As Integer 'numer wiersza

a = 1
i = 1
Cells(a, 1).Activate

Do While Cells(a, 1).Value <> ""
    ReDim Preserve qday(i)
    qday(i) = Cells(a, 1).Value
    For x = 1 To i - 1
        If qday(i) = qday(x) Then
            i = i - 1
            Exit For
        End If
    Next x
    i = i + 1
    a = a + 1
Loop

i = i - 1
ReDim Preserve qday(i)

For Each item In qday
   Debug.Print item
Next

End Sub

Problemy byly dwa:
1. w przypadku nieposortowanej kolumny usuwalo zbyt wiele elementow
(dlatego umiescilem wczesniejsze wyjscie po pierwszym usunieciu).
2. dublowalo ostatni element tabeli jesli byl dwa (lub wiecej razy) na
liscie. ReDim Preserve na samym koncu zalatwilo sprawe.

Jeszcze raz dziekuje za pomoc,
Dominik