在除第一张纸之外的所有纸张中搜索字符串，并使用宏将相应的纸张名称写入第一张Excel文件

Question

我们说第一张纸的名字是'A'。我们如何在同一列（B1）中将数据的工作表名称写入工作表A.我们再次搜索SheetA的C1，D1等等。

我在这里发现这个代码很有用，但没有回应我的需要

Samar's code

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