Font.Name = "Arial Black" End If Next c次のコードは、指定された範囲内の「To Test」を「Passed」に置き換えます。With Range("a1:a500") Set c = .Find("To Test", LookIn:=xlValues) If Not c Is Nothing Then firstaddress = c.Address Do c.Value = "Passed" Set c = .FindNext(c...