多くのマクロを含むコスト シートがあります。マクロの 1 つは、シートの下部に新しい項目を追加することです。追加するアイテムが「カスタム」というテキストで始まり、そのセルを見つけて選択したいというIfコードを入力したいと思います。以下は私が試しているコードですが、型の不一致でデバッグし、Custom = Range("B:B").Value 行を強調表示します。どんな助けでも大歓迎です。
Dim Custom As String
Custom = Range("B:B").Value
If Custom Like "Custom *" Then
Cells.Find(What:="Custom ", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False).Activate
ActiveCell.FormulaR1C1 = ("Test")
End If