用VBAsearch一个string（模糊逻辑）

我几年前拼凑起来的，现在我需要稍微调整一下，但是我对VBA很生疏，所以可以这样做：

Sub Colour_Cells_By_Criteria() Dim myRange As Range Dim myPattern As String Dim myLen As Integer Dim myCell As Range Set myRange = Range("A1:A1000") myPattern = "*1*" myLen = 4 Application.ScreenUpdating = False Application.StatusBar = "Macro running, please wait...." For Each myCell In myRange With myCell If (.Value Like myPattern) And (Len(.Value) = myLen) Then myCell.Interior.Color = 65535 myCell.Font.Bold = True End If End With Next Application.ScreenUpdating = True Application.StatusBar = False End Sub 

而不是着色和加粗逻辑捕获的任何单元格，我想把“MATCH”一词放在B列的同一行。

任何在正确的方向轻推将不胜感激。

Answer 1

 myCell.Offset(0,1).Value="Match"