Ciao a tutti,
dovrei eliminare in una tabella i numeri ripetuti ,senza formattazione condizionale.
Prima
Dopo
Moderatori: Anthony47, Flash30005
Sub DelNumRipet()
UR = Worksheets("Foglio1").Range("Z" & Rows.Count).End(xlUp).Row
UC = Worksheets("Foglio1").Cells(UR, Columns.Count).End(xlToLeft).Column
For CR = UR To 2 Step -1
For CC = 26 To UC
Num1 = Cells(CR, CC).Value
For CR2 = CR - 1 To 1 Step -1
For CC2 = 26 To UC
Num2 = Cells(CR2, CC2).Value
If Num1 = Num2 Then Cells(CR2, CC2).Value = ""
Next CC2
Next CR2
Next CC
Next CR
End Sub
Sub DelNumRipet()
UR = Worksheets("Foglio1").Range("Z" & Rows.Count).End(xlUp).Row
UC = Worksheets("Foglio1").Cells(UR, Columns.Count).End(xlToLeft).Column
For CR = 1 To UR
For CC = 26 To UC
Num1 = Cells(CR, CC).Value
Cells(CR + 20, CC - 23).Value = Num1
Next CC
Next CR
For CR = UR To 2 Step -1
For CC = 26 To UC
Num1 = Cells(CR + 20, CC - 23).Value
For CR2 = CR - 1 To 1 Step -1
For CC2 = 26 To UC
Num2 = Cells(CR2 + 20, CC2 - 23).Value
If Num1 = Num2 Then Cells(CR2 + 20, CC2 - 23).Value = ""
Next CC2
Next CR2
Next CC
Next CR
End Sub
Statix ha scritto:...ho notato che se nella stessa riga ho 2 numeri uguali non me lo cancella
Statix ha scritto:al momento non sono riuscito a capire bene cosa modificare nella macro
Nell'immagine si vedono le colonne Z - AS con i dati ma non si vedono i nueri riga
La macro eseguirà il processo dall'ultima riga fino alla riga 1, se hai righe superiori che non devono essere processate è necessario limitare il range della variabile CR.
UR = Worksheets("Foglio1").Range("Z" & Rows.Count).End(xlUp).Row
UC = Worksheets("Foglio1").Cells(UR, Columns.Count).End(xlToLeft).Column
For CR = 1 To UR
For CR = 1 To 3
For CC = 26 To UC
For CC = 26 To 45
Sub DelNumRipet()
Sheets("Ritardi").Select
Range("E8:X10").Select
Selection.ClearContents
If Range("D7").Value > Range("BY4").Value Then Exit Sub
For CR = 1 To 3
For CC = 78 To 97
Num1 = Cells(CR, CC).Value
Cells(CR + 7, CC - 73).Value = Num1
Next CC
Next CR
For CR = 3 To 2 Step -1
For CC = 78 To 97
Num1 = Cells(CR + 7, CC - 73).Value
For CR2 = CR - 1 To 1 Step -1
For CC2 = 78 To 97
Num2 = Cells(CR2 + 7, CC2 - 73).Value
If Num1 = Num2 Then Cells(CR2 + 7, CC2 - 73).Value = ""
Next CC2
Next CR2
Next CC
Next CR
Range("A1").Select
End Sub
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 87 ospiti