Find centralized, trusted content and collaborate around the technologies you use most.
Teams
Q&A for work
Connect and share knowledge within a single location that is structured and easy to search.
我想删除不同工作表的工作表标签颜色。例如,仅适用于名称包含“缺陷”的工作表。
Sub Simples() Dim ws As Worksheet For Each ws In Worksheets If InStr("Defects", ws.Name) > 0 Then ws.Tab.ColorIndex = xlColorIndexNone End If Next ws End Sub