
Sub TROVA()
Dim irow, var, icol, vrow
For irow = 1 To 1000
If Cells(irow, 1) = "" Then Exit Sub
var = Cells(irow, 1) 'scorro la prima colonna
Sheets("foglio2").Cells(irow, 1) = var
icol = 2
For vrow = 1 To 10000
If Cells(vrow, 2) = "" Then Exit For
If Cells(vrow, 2) = var Then
Sheets("foglio2").Cells(irow, icol) = Cells(vrow, 3)
icol = icol + 1
End If
Next
Next
End Sub
|
