Sub 文字探して数式変換()
‘
‘ 　「文字探し」のセルの隣の数字を4で割る。

‘　条件に合うセルを探して、D列に移動
Dim rng1 As Range
Set rng1 = Cells.Find(What:=”文字探し”)

If rng1 Is Nothing Then
MsgBox “見つかりませんでした。”
Else
Cells(rng1.Row, “D”).Select
End If
‘　 見つけたセル（アクティブセル）を右隣にコピー
With ActiveCell
If .Column <> 1 Then
.Value = .Offset(0, -1).Value
End If
End With
‘　 アクティブなセルにセット組の切り捨ての割り算を入れる。
ActiveCell.FormulaR1C1 = “=ROUNDDOWN(R[0]C[-1] / 4,0)”
‘　 アクティブセルの移動
ActiveCell.Offset(0, -1).Activate
‘　 （アクティブセル）を左隣にコピー
With ActiveCell
If .Column <> 1 Then
.Value = .Offset(0, 1).Value
End If
End With