2

私はこれを数年前にまとめましたが、今は少し調整する必要がありますが、私は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

ロジックによってキャプチャされたセルに色を付けたり太字にしたりするのではなく、列 B の同じ行に "MATCH" という単語を入れたいと思います。

正しい方向へのナッジをいただければ幸いです。

4

1 に答える 1

3 
myCell.Offset(0,1).Value="Match"
于 2013-09-17T18:03:23.540 に答える