分类：电脑/网络-软件-办公软件
问题：求高手帮忙写一段代码在SHEET1中输入文字（包含数字），如果S 
在SHE1中输入文字（包含数字），如果SHEET2中有单元格包含了SHEET1的文字和数字时，此单元格就变成红色。
回答：Private Sub Worksheet_hange(ByVal Target As Range)If Not Intersect(Target, [a1:a15]) Is Nothing And Target.Count = 1 Then   Sheet2.UsedRange.Interior.ColorIndex = 0   If Target.Value <> "" Then      str1 = "*"        For i = 1 To Len(Target.Value)             str1 = str1 & Mid(Target.Value, i, 1) & "*"             Next             For Each rng In Sheet2.UsedRange             If rng Like str1 Then                rng.Interior.ColorIndex = 3                End If                 Next                  End If                    End If        End Sub