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?

  • Come aggiungere commento all'interno della formula complessa di excel
  • Corrispondenza di righe in due documenti excel
  • Copiare un intervallo di celle e select solo le celle con i dati
  • Come raggruppare per date in Excel
  • Combinando valori di 2 colonne n excel
  • Come allineare le celle a destra
  • vba, getElementsByClassName, i doppie virgolette di HTMLSource sono spariti
  • Excel: trovare il valore dalla colonna nella string di text e restituirlo
  • Excel: rimuovere formule ma mantenere le risposte come text
  • Plottare più punti longitudine e latitudine in una mappa?
  • Come trovare la formula giusta
  • Tabella dati Excel - I riferimenti cambiano se la visualizzazione sottostante 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.