Kopieren von Daten in ein neues Blatt nur, wenn keine Daten mit einem Makro vorhanden sind

Question

Ich habe ein einfaches Makro erstellt, um Daten zu filtern und zu einem bestimmten Blatt [ISRisks] nach der letzten Zeile hinzuzufügen. Mir ist jedoch klar, dass ich nicht sicher bin, wie überprüft werden kann, ob die Daten bereits im [ISRisks] -Blatt vorhanden sind! Bitte könnte jemand helfen - Spalte a in [ISRisks] enthält das einzigartige RISKID-Feld zur Überprüfung. Das ist, was ich habe, so weit:

Sub ISRISKCOPY() 
     ' 
     Dim lMaxRows As Long 
     Dim ws As Worksheet 
     Dim rng As Range 
     Dim LR As Long 
     Dim rTable As Range 

    For Each ws In ActiveWorkbook.Worksheets 
       If (ws.Name <> "ISRisks") And (ws.Name <> "Closed Risks") And (ws.Name <> "Risk Grading Matrix ") And (ws.Name <> "Sheet1") And (ws.Name <> "Sheet2") Then 
      Application.DisplayAlerts = False 

      With ws 

      If .FilterMode Then .AutoFilterMode = False 
      Sheets(ws.Name).Range("$A$2:$W$2").AutoFilter Field:=5, Criteria1:=Array("IS", "IS - Information Security"), Operator:=xlFilterValues 
      Set rTable = Sheets(ws.Name).AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible) 
      rTable.Copy 
      lMaxRows = Sheets("ISRisks").Cells(Rows.Count, "a").End(xlUp).Row 

      Range("a" & lMaxRows + 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 

      End With 

      Else 
       End If 

      Next ws 

      'sorting unique id column 
      Sheets("ISRisks").Range("A1").Select 
      ActiveWorkbook.Worksheets("ISRisks").Sort.SortFields.Clear 
      ActiveWorkbook.Worksheets("ISRisks").Sort.SortFields.Add Key:=Range("A1"), _ 
      SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 
      With ActiveWorkbook.Worksheets("ISRisks").Sort 
      .SetRange Range("A2:A10000") 
      .Header = xlNo 

.MatchCase = False 
     .Orientation = xlTopToBottom 
     .SortMethod = xlPinYin 
     .Apply 
    End With 

Application.DisplayAlerts = True 
    End Sub 

Answer 1

Sie diesen Code verwenden können, um einen Bereich zu suchen und bestimmen, ob der Wert ist.

With Sheets("Sheet1").Range("A:A") 
    Set Rng = .Find(What:=FindString, _ 
        After:=.Cells(.Cells.Count), _ 
        LookIn:=xlValues, _ 
        LookAt:=xlWhole, _ 
        SearchOrder:=xlByRows, _ 
        SearchDirection:=xlNext, _ 
        MatchCase:=False) 
    If Not Rng Is Nothing Then 
     'Do This If Found 
    Else 
     'Do This If Not Found 
    End If 
End With 

Sie müssen das Blatt, das Sie verwenden möchten, setzen, den Bereich, den Sie suchen möchten, und ersetzen FindString mit der Variable, die Sie für die Überprüfung sind. In den Abschnitten in der if-Anweisung können Sie Aktionen ausführen, die darauf basieren, ob Sie suchen oder nicht finden (Einfügen, falls nicht gefunden). Das kann auch wiederholt werden, um es zu verkürzen, wenn Sie keine Aktion ausführen müssen, wenn sie gefunden wird.

wurde Das obige Beispiel here.