Moderatori: Anthony47, Flash30005
Sub taba()
'
For i = 2 To Cells(Rows.Count, "D").End(xlUp).Row
If Cells(i, 1) <> "" Then
ilast = i: mybl = 0
Else
mybl = mybl + 1
If Cells(i, 4) <> "" Then
Cells(ilast, 4 + mybl) = Cells(i, 4)
Cells(i, 4).ClearContents
End If
End If
Next i
End Sub
Torna a Applicazioni Office Windows
confrontare e evidenziare 2 fogli excel Autore: niccia |
Forum: Applicazioni Office Windows Risposte: 5 |
[EXCEL] controllo corrispondenza tra valori con un vincolo Autore: sbs |
Forum: Applicazioni Office Windows Risposte: 9 |
Come impostare il formato data predefinito in excel? Autore: wallace&gromit |
Forum: Applicazioni Office Windows Risposte: 5 |
Visitano il forum: Nessuno e 32 ospiti