シート上に

質問

シート上に
Ａ学科　相川　秋山・・・鈴木・・・
Ｂ学科　伊藤　・・・鈴木
・
・
・
と書いてあります。

Sub Find_01()
　Dim c As Object
　Dim myKey As String, fAddress As String
　　　myKey = "鈴木"
　　　With Worksheets(1).Range("a1:a30")
　　　　　 Set c = .Find(What:=myKey, LookIn:=xlValues, lookat:=xlWhole, _
　　　　　　　　　　　　　　SearchOrder:=xlByColumns, MatchByte:=False)
　　　　　If Not c Is Nothing Then
　　　　　　　fAddress = c.Address
　　　　　　　Do
　　　　　　　　　c.Interior.ColorIndex = 3
　　　　　　　　　Set c = .FindNexｔ(c)
　　　　　　　　　　　If c.Address = fAddress Then Exit Do
　　　　　　　Loop
　　　　　End If
　　　End With
End Sub

このプログラムで「鈴木」と書いてあるセルに色がつくのですが
「鈴木」という部分にはマークをせず、学科の部分をマーク
するにはどうすればよいのでしょうか？

回答No.1

hige_082 · ベストアンサー

＞c.Interior.ColorIndex = 3
を
cells(c.row,1).Interior.ColorIndex = 3
へ変更で良いと思うけど

参考まで