Macro 1
La seconda richiesta è uguale alla prima. Basta che sostituisca i due AND con due OR.codice:Sub cancellaRigheVuote() Dim ultima As Integer, i As Integer ultima = Range("A" & Rows.Count).End(xlUp).Row For i = ultima To 2 Step -1 If Len(Trim(Range("B" & i))) = 0 And Len(Trim(Range("C" & i))) = 0 And Len(Trim(Range("D" & i))) = 0 Then Range("A" & i).EntireRow.Delete End If Next i End Sub
Macro 3
P.S. Inizia a sbatterci la testa per conto tuo e quanto meno a provare a buttar giù qualcosa autonomamente anche aiutandoti con google e con la guida in linea, altrimenti non imparerai mai.codice:Sub copiaContenuto() Dim ultima As Integer, i As Integer ultima = Range("A" & Rows.Count).End(xlUp).Row For i = 2 To ultima If Len(Trim(Range("B" & i))) = 0 Then Range("B" & i).Value = Range("C" & i).Value End If Next i End Sub

Rispondi quotando
