工作簿的Sheet1包含基于某些条件的其他工作表的名称

Question

Sub CheckColor()
Dim Row
For Row = 2 To tsheet.UsedRange.Rows.Count
For chkcol = 1 To Sheet1.UsedRange.Columns.Count
If tsheet.Cells(Row, chkcol).Interior.ColorIndex = 3 Then
    'How to report the corresponding sheet name in sheet 1???
End If
Next
Next Row

Answer 1

首先，我认为将range.find（）与FindFormat一起使用会更加高效：

Private Sub test()
    Application.FindFormat.Clear
    Application.FindFormat.Interior.ColorIndex = 3

    Range("A1:C3").Find(What:="", LookAt:=xlPart, SearchFormat:=True).Value = "test"
End Sub

对于您的主要问题，我认为您首先需要确定是要为所有工作表执行代码，还是要为子集执行代码。如果是针对所有工作表，那么您可以简单地将上面的代码包装在Worksheets集合的for each循环中。

如果您需要对工作表的子集执行此代码，那么您可以使用规则（前4个字符=“ABCD”）或在数组中硬编码它们。