Evidenziare i valori parziali duplicati

Ho un elenco di indirizzi IP in un file excel e ho bisogno di trovare duplicati basati su intervalli IP, non i valori interi. Ad esempio, se ho indirizzi IP 109.184.137.22 e 109.184.138.170, posso formattare per mostrare che sono duplicati basati sulle prime 7 cifre?

  • Asse rotto - Grafici di Excel
  • Utilizzo di Countifs in excel con gamma automatica
  • Esempio di Excel 2016 Complex IF da più fogli che aggiungono dati da uno all'altro se una condizione è vera
  • Colori alternativi di fila con le cellule divise
  • Incollare i dati di Excel a solo valori corrispondenti
  • Elimina tutto a sinistra di </a> </ p> in Excel
  • Unire 2 colonne se corrispondono (c1 confronta con a1 parziale)
  • Modificare il tipo di formula in modo che i valori verranno aggiornati senza riferimento alla cartella di lavoro aperta
  • Cercando di scoprire quante volte i numbers vengono in una serie
  • Conte Valori unici per per categoria
  • Esiste un limite per il nome del foglio di lavoro di Excel?
  • Calcola automaticamente le righe medie in excel each volta che un numero di riferimento unico cambia
  • 2 Solutions collect form web for “Evidenziare i valori parziali duplicati”

    Immagina IP in A1: A10,

    Selezionare A1: A10, formattazione condizionale, nuova regola, utilizzare una formula per determinare quali celle da formattare e quindi scrivere la formula:

     =COUNTIF($A$1:$A$10;LEFT(A1;7)&"*")>1 

    A seconda delle impostazioni regionali potrebbe essere necessario sostituire ";" da ","

    Personalmente lo dividerei e poi rientrerò solo i primi due ottetti poiché un indirizzo IP è talvolta notato come 42.192.63.10 o qualche tale. Vorrei usare questo per loop attraverso una colonna e evidenziare qualcosa con IP corrispondenti … o indovino che si potrebbe rimuovere il ciclo per controllare solo una cella per base di celle.

     Sub IPCheck() Dim arrSplit As Variant Dim strSearchFor As String Dim iVal As Integer Dim strJoinMe() As String ReDim strJoinMe(0 To 1) Do Until ActiveCell = "" arrSplit = Split(ActiveCell.Value2, ".") strJoinMe(0) = arrSplit(0) strJoinMe(1) = arrSplit(1) strSearchFor = Join(strJoinMe, ".") strSearchFor = strSearchFor & "*" iVal = Application.WorksheetFunction.CountIf(Range("A1:A10"), strSearchFor) If iVal > 1 Then ActiveCell.Font.Color = RGB(255, 0, 0) End If ActiveCell.Offset(1).Select Loop Dim arrSplit come variante Sub IPCheck() Dim arrSplit As Variant Dim strSearchFor As String Dim iVal As Integer Dim strJoinMe() As String ReDim strJoinMe(0 To 1) Do Until ActiveCell = "" arrSplit = Split(ActiveCell.Value2, ".") strJoinMe(0) = arrSplit(0) strJoinMe(1) = arrSplit(1) strSearchFor = Join(strJoinMe, ".") strSearchFor = strSearchFor & "*" iVal = Application.WorksheetFunction.CountIf(Range("A1:A10"), strSearchFor) If iVal > 1 Then ActiveCell.Font.Color = RGB(255, 0, 0) End If ActiveCell.Offset(1).Select Loop Dim iVal come integer Sub IPCheck() Dim arrSplit As Variant Dim strSearchFor As String Dim iVal As Integer Dim strJoinMe() As String ReDim strJoinMe(0 To 1) Do Until ActiveCell = "" arrSplit = Split(ActiveCell.Value2, ".") strJoinMe(0) = arrSplit(0) strJoinMe(1) = arrSplit(1) strSearchFor = Join(strJoinMe, ".") strSearchFor = strSearchFor & "*" iVal = Application.WorksheetFunction.CountIf(Range("A1:A10"), strSearchFor) If iVal > 1 Then ActiveCell.Font.Color = RGB(255, 0, 0) End If ActiveCell.Offset(1).Select Loop 
    Microsoft Office Excel Spreadsheet è il miglior software di Office, Excel VBA e formule Excel rendono il foglio di calcolo più veloce.