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

我有以下代码：

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

我希望它可以在名称包含单词“ -Incumbents”的任何工作表上工作。
问题在于工作表的名称为“ 1-现有人”，“ 2-现有人”，“ 3-现有人”等等。
所以我想我需要某种变量来放入代码中而不是实际数字中，但是我不知道该怎么做。
请帮忙。

最佳答案

尝试这样的事情：

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

关于excel - 工作表名称中的数字为“任意数字”，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/39350153/