vba - 最初のシートを除くすべてのシートで文字列を検索し、対応するシート名をマクロを使用して Excel ファイルの最初のシートに書き込みます

Question

最初のシートの名前を「A」としましょう。同じ列 (B1) のデータのシート名をシート A に書き込むにはどうすればよいでしょうか。また、シート A の 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