| | Post: 42 | Registrato il: 27/05/2019
| Città: MILANO | Età: 56 | Utente Junior | 2016 | | OFFLINE | |
|
11/10/2019 09:53 | |
Salve a tutti mi servirebbe una funzione che elimina tutti i numeri di ogni riga qualora ci fossero numeri doppi o tripli o +
Grazie mille. [Modificato da cico777 11/10/2019 09:54] |
|
| | Post: 2.418 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
11/10/2019 10:31 | |
ciao
sottoporre qualche tuo tentativo anche non funzionante ??
saluti
Domenico
Win 10 - Excel 2016 |
| | Post: 733 | Registrato il: 24/06/2015
| Città: CATANIA | Età: 80 | Utente Senior | Excel2019 | | OFFLINE |
|
11/10/2019 10:32 | |
Ciao
Chiarisci una cosa:
- vuoi eliminare TUTTI i numeri ripetuti in ogni riga
oppure
- vuoi che rimangano SOLO numeri unici?
Per esempio nella prima riga vuoi che restino 234 oppure 1234?
Ciao,
Mario |
| | Post: 3.506 | Registrato il: 03/04/2013
| Utente Master | Excel 2000 - 2013 | | OFFLINE | |
|
11/10/2019 11:31 | |
Buona giornata, a Tutti. @cico777; prima di proporti un Codice VBA ti chiedo di verificare se il risultato dell'immagine in allegato è quello da te atteso. A disposizione. Buon Lavoro. Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 42 | Registrato il: 27/05/2019
| Città: MILANO | Età: 56 | Utente Junior | 2016 | | OFFLINE | |
|
11/10/2019 12:46 | |
Vi ringrazio per l'aiuto,
Se in una riga ci sono due numeri uguali o piu di due eliminare tutti i numeri di quella riga.
Ad esempio nella riga 2 ci sono due numeri uguali quindi vanno eliminati tutti i numeri della riga 2.
Nella riga 16 ci sono tre numeri uguali quindi vanno eliminati tutti i numeri della riga 16 e così via.
O ancora meglio eliminare direttamente le righe in questione per evitare di avere spazi vouto tra le righe che hanno dei numeri.
Grazie. [Modificato da cico777 11/10/2019 13:31] |
| | Post: 734 | Registrato il: 24/06/2015
| Città: CATANIA | Età: 80 | Utente Senior | Excel2019 | | OFFLINE |
|
11/10/2019 16:39 | |
Ciao
Se ho capito bene, vuoi eliminare l'intera riga se nella stessa riga ci sono doppioni.
Se è così dovrebbe essere utile questa macro
Option Explicit
Sub EliminaRigaDoppioni()
Dim ur As Long, i As Long, j As Long, k As Long
Dim num(2 To 6) As Variant
ur = Cells(Rows.Count, 2).End(xlUp).Row
For i = ur To 2 Step -1
For j = 2 To 6
num(j) = Cells(i, j).Value
Next j
For j = 2 To 5
For k = j + 1 To 6
If num(j) = num(k) Then
Rows(i).EntireRow.Delete
GoTo nxt
End If
Next k
Next j
nxt:
Next i
End Sub
Ovviamente testala su una copia del file e fai sapere. Ciao,
Mario |
| | Post: 45 | Registrato il: 27/05/2019
| Città: MILANO | Età: 56 | Utente Junior | 2016 | | OFFLINE | |
|
12/10/2019 10:53 | |
Si funziona grazie, ma se metto solo 3 colonne di numeri spariscono tutti i numeri. |
| | Post: 735 | Registrato il: 24/06/2015
| Città: CATANIA | Età: 80 | Utente Senior | Excel2019 | | OFFLINE |
|
12/10/2019 12:29 | |
Ciao
Questo non lo avevi specificato.
Comunque, trasforma questa riga di codice da così
a così
If num(j) = num(k) And num(j) <> "" Then
dovrebbe funzionare.
Ciao,
Mario |
| | Post: 48 | Registrato il: 27/05/2019
| Città: MILANO | Età: 56 | Utente Junior | 2016 | | OFFLINE | |
|
12/10/2019 13:02 | |
Si funziona così, ancora grazie. |
|
|