vba - 在除第一张工作表之外的所有工作表中搜索字符串，并使用宏将相应的工作表名称写入 excel 文件的第一张工作表

Question

假设我们的第一张工作表的名称是“A”。我们如何将同一列（B1）中的数据表名称写入表 A。我们再次搜索 SheetA 的 C1、D1 等等。

我发现这里的代码很有用，但没有满足我的需要

萨马尔的密码

Answer 1

假设我们正在除了第一张纸之外的每张纸上搜索“幸福”。试试这个：

Sub FindingHappiness()
Dim N As Long, M As Long
Dim s As String, r As Range
s = "happiness"
N = 10
For M = 2 To Sheets.Count
    Sheets(M).Activate
    For Each r In ActiveSheet.UsedRange
        If InStr(r.Value, s) > 1 Then
            Sheets(1).Cells(N, 2).Value = ActiveSheet.Name
            N = N + 1
            Exit For
        End If
    Next
Next
End Sub