
Sub comuni() Dim data, i Dim indirizzo1, comune, controllo r = 1 indirizzo1 = Foglio2.Cells(r, 8) For i = 1 To 8103 comune = Foglio1.Cells(i, 1) controllo = InStr(indirizzo1, comune) > 0 If controllo <> 0 Then Foglio2.Cells(r, 8) = comune End If Next End Sub |
Sub comuni() Dim data, i Dim indirizzo1, comune, controllo r = 1 indirizzo1 = Foglio2.Cells(r, 8) For i = 1 To 8103 comune = Foglio1.Cells(i, 1) if InStr(indirizzo1, comune) > 0 Then Foglio2.Cells(r, 8) = comune Next End Sub |
