工作表名称中的数字为“任意数字”-numberinworksheetnameas“anynumber”

3  

Try something like this:

尝试这样的事情:

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

3  

As Scott Craner said, first, have a loop through all your sheets. Second, compare the sheet.name with "Incumbents", you can either use the "Like" or "InStr" functions:

正如Scott Craner所说,首先,让你的所有床单都有一个循环。其次,将sheet.name与“Incumbents”进行比较,您可以使用“Like”或“InStr”函数:

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