Nummer in Arbeitsblatt-Namen als „jede Zahl“

Question

Ich habe diesen Code:

Set wb2 = ActiveWorkbook 
wb2.Worksheets("-Incumbents").Range("B2:C2", Range("B2:C2").End(xlDown)).RemoveDuplicates Columns:=Array(1, 2), Header _ 
:=xlYes 
wb2.Worksheets("-Incumbents").Range("B2:C2", Range("B2:C2").End(xlDown)).Select 
Selection.Copy 

Ich mag es auf jedem Arbeitsblatt, welchen Namen arbeiten enthält Wort „-Incumbents“. Das Problem ist, dass Arbeitsblätter "1-Incumbents", "2-Incumbents", "3-Incumbents" und so weiter genannt werden ... Also ich denke, ich brauche eine Art Variable, um den Code anstelle der tatsächlichen Zahl zu setzen , aber ich kann mir nicht vorstellen, wie ich das machen soll. Bitte helfen.

Answer 1

versuchen, etwas wie folgt aus:

Dim ws as Worksheet 
Dim wb2 as Workbook 
Set wb2 = ActiveWorkbook 
For Each ws in wb2.worksheets 
    If ws.Name Like "*-Incumbents" Then 
     wb2.Worksheets("-Incumbents").Range("B2:C2", Range("B2:C2").End _ 
      (xlDown)).RemoveDuplicates Columns:=Array(1, 2), Header _ 
      :=xlYes 
     wb2.Worksheets("-Incumbents").Range("B2:C2", Range("B2:C2").End _ 
      (xlDown)).Select 
     Selection.Copy 
    End If 
Next 

Answer 2

Als Scott Craner sagte zunächst eine Schleife durch alle Blätter. Zweitens vergleichen Sie die sheet.name mit „Incumbents“, können Sie entweder den „Like“ oder „InStr“ Funktionen:

Dim wb2 As Workbook 
Dim sht As Worksheet 

Set wb2 = ActiveWorkbook 

For Each sht In wb2.Sheets 

    ' option 1: use Like 
    If sht.Name Like "Incumbents" Then 

    ' option 2: use Instr 
    ' If InStr(1, sht.Name, "Incumbents") > 0 Then 
     sht.Range("B2:C2", sht.Range("B2:C2").End(xlDown)).RemoveDuplicates Columns:=Array(1, 2), Header _ 
     :=xlYes 
     sht.Range("B2:C2", sht.Range("B2:C2").End(xlDown)).Copy 
    End If 

Next sht