VBA：针对一个工作簿中多个表，显示表名中含特定字符的表，其他表隐藏

一、代码需求

针对一个工作簿中很多的表，有些需要隐藏，有些需要显示出来，因表的名称比较统一，仅有主体名称不同；如图：

目的是实现仅显示“汇总表”和 “人工费用表”，其他表则都隐藏

二、代码示例

Sub 特定表隐藏()
  Dim i As Integer, x As Integer
  x = Worksheets.Count  '统计所有表的数量
  For i = 1 To x
   If Sheets(i).Name Like "*汇总*" Or Sheets(i).Name