Re: Do specow Excelowych

Cos takiego:

Sub qq()
x = 2
y = 2
Sheets(1).Select
While Cells(x, 1) <> ""
    id1 = Cells(x, 1)
    w1 = Cells(x, 2)
    w2 = Cells(x, 3)
    w3 = Cells(x, 4)
    jest = False
    Sheets(2).Select
    y = 1
    While Cells(y, 1) <> ""
        id2 = Cells(y, 1)
        If id1 = id2 Then
            Cells(y, 4) = w1
            Cells(y, 5) = w2
            Cells(y, 6) = w3
            jest = True
        End If
        y = y + 1
    Wend
    If Not jest Then
        Cells(y, 1) = id1
        Cells(y, 4) = w1
        Cells(y, 5) = w2
        Cells(y, 6) = w3
    End If
    Sheets(1).Select
    x = x + 1
Wend
End Sub
Received on Thu Mar 18 13:10:02 2010