检查单元格vba中是否存在名称表中的值

Question

我有一个代码概念问题。

我只是编写了一些代码，将其查找到一列（具有500多个单元格）中，并且如果某个单元格的值不存在（作为工作表名称）（在同一wb中），则使用该单元格中的值名称创建工作表。

这是我的代码：

' Si le ticker existe mais pas l'onglet,créé l'onglet
 LastRowData = Data.Cells(Data.Rows.Count, "A").End(xlUp).Row 'trouve la dernière ligne de Data
 LastColumnData = Data.Cells(1, Data.Columns.Count).End(xlToLeft).Column 'trouve la dernière colonne de Data

For i = 2 To LastRowData
    For Each sht In Perftitres.Worksheets
         If Not SheetExists(Data.Cells(i, 9), Perftitres) Then
         Worksheets.Add.Name = Data.Cells(i, 9)
         ActiveSheet.Move After:=Worksheets(2)
         End If
    Next sht
Next i

此代码有效。 SheetExist是一个函数，如果存在工作表，则为true，否则为false。

尽管如此，我现在想做反演：

如果工作表的名称不在该列中，则将其隐藏。 我想不通...我想查看除第一个工作表（数据）以外的每个工作表。 如果名称出现在列中，则什么也不做。 如果不是，则隐藏工作表。

谢谢。

Answer 1

未经测试，但是像这样：

Dim sName As String, m, sht As Worksheet

LastRowData = Data.Cells(Data.Rows.Count, "A").End(xlUp).Row
LastColumnData = Data.Cells(1, Data.Columns.Count).End(xlToLeft).Column

'Hide any unmatched sheets (and unhide any matched ones)
For Each sht In Perftitres.Worksheets
    m = Application.Match(sht.Name, Data.Cells(2, 9).Resize(LastRowData, 1), 0)
    sht.Visible = IIf(IsError(m), xlSheetHidden, xlSheetVisible)
Next sht

'add any missing sheets
For i = 2 To LastRowData
    sName = Data.Cells(i, 9).Value
    If Not SheetExists(sName, Perftitres) Then
        With Perftitres.Worksheets.Add(After:=Perftitres.Worksheets(2))
            .Name = sName
        End With
    End If
Next i