oobird

¥[¤W¥k°¼¥´¤Ä

1. Sub yy()
   
2. With Application.ReplaceFormat.Interior
   
3.         .ColorIndex = 3
   
4.     End With
   
5.    Cells.Replace What:="john", Replacement:="=1/0", ReplaceFormat:=True
   
6.    With Cells.SpecialCells(xlCellTypeFormulas, 16)
   
7.    .Value = "john"
   
8.    .Offset(, 1) = "¡Ô"
   
9.    End With
   
10. End Sub

½Æ»s¥N½X

oobird

¨C¤@©«­n¤ñ¹ïªº¦ì¸m³£¤£¤@¼Ë
¤£ª¾¸Ó¦^ÂЭþ¤@©«
³Ì«á¤@©«ªº¡G
Sub module1()
Dim yy As Range, data As Range
For Each yy In Range([a1], [a65535].End(3))
Set c = [b:b].Find(yy, , , 1)
If Not c Is Nothing Then
           If data Is Nothing Then
           Set data = c
        Else
          Set data = Union(data, c)
        End If
     End If
Next
    If Not data Is Nothing Then
    With data
        .Interior.ColorIndex = 3
        .Offset(, 1) = "V"
    End With
    End If
End Sub