Excel小技（VBA）特定文字列セルの隣セルにコメントを追加する

VBA

ub updateAllSheet()

Application.ScreenUpdating = False 
  Dim シート As Worksheet
      For Each シート In Worksheets
          シート.Select
          Call rowJ
      Next シート
Application.ScreenUpdating = True

MsgBox ("Finished")
End Sub



Sub rowJ()

For i = 1 To 100
 a = "*コメント*"
 If Cells(i, 7).Value Like a Then

  Cells(i, 10).Value = Cells(i, 10).Value + " コメントを追加する"
  Cells(i, 10).Interior.ColorIndex = 38

 End If

 Next i


End Sub