excel - 如果匹配条件，则搜索工作表名称，然后使用格式复制粘贴值？

Question

更新:我能够解决这个问题。我只记得 VBA 使用 * 和 ?显示字符串 'If Sheet.name Like "*CopyA"'

<小时/>

我想使用包含单词的所有工作表源的原始格式制作一个特殊值的副本:“CopyA”例如“Apple CopyA”，“Mango CopyA”

我可以使用宏记录来查看 VBA 如何创建工作表并复制特殊内容，如下面的类似示例。

我在搜索工作表名称时遇到麻烦 - 我发现的所有示例要么我必须知道确切的名称(与宏记录相同)，要么我必须复制所有工作表(循环遍历所有工作表并复制，无论如何)名字是)。

Sub Macro1()
    Sheets("Sheet1").Select
    Sheets("Sheet1").Copy Before:=Sheets(1)
    Sheets("Sheet1(2)").Select
    Cells.Select
    Selection.Copy
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
End Sub

如何搜索工作表的名称？在这种情况下，任何具有“CopyA”的工作表？

Answer 1

另一种方式:)您还可以使用Instr()。例如

对于工作簿中的所有工作表，请使用此

Option Explicit

Sub Macro1()
    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Sheets
        If InStr(1, ws.Name, "CopyA") Then
            '~~ > Your code
        End If
    Next
End Sub

对于 ActiveSheet 使用此

Option Explicit

Sub Macro1()
    If InStr(1, ActiveSheet.Name, "CopyA") Then
        '~~ > Your code
    End If
End Sub