你有一个基本的错误：

Range(Cells(k, "P")).Value = PurchasePrice.

如果要保持代码不变，则需要将其更改为

Cells(k, "P") = PurchasePrice

除此之外，你的逻辑似乎是合理的。为了测试，我重写了“我的首选”语法（见下文）。它有点简单（帮助我看得更清楚）。然而，基本的逻辑是你的（净的错误）。

Sub Button1_Click()

    Dim in1%
    Const bdTolerance# = 0.01

    For in1 = 87 To 89
    
        With Range("B95")
            .GoalSeek Goal:=Cells(in1, "O"), ChangingCell:=Range("B4")
    
            If .Value <= Cells(in1, "O") + bdTolerance And .Value >= Cells(in1, "O") - bdTolerance Then
                Cells(in1, "P") = Range("B4")
            Else
                Cells(in1, "P") = False
            End If
        End With
            
    Next in1

End Sub

另外，您在文本中表示希望公差为± 1%。但是，您添加和减去的是文字0.01（而不是1%）。要应用百分比，请将检验更改为：

If .Value <= Cells(in1, "O") * (1 + bdTolerance) And _
    .Value >= Cells(in1, "O") * (1 - bdTolerance) Then

最后，您在文本中说“此值需要存储在单元格P97、P98和P99中（3个方案有3个不同的值）"。但是，您的代码从第87行获取并存储到第89行。要更改到第97行到第99行，请更改For values per：

For in1 = 97 To 99

总而言之，假设您的描述性文本是准确的，而代码是不准确的，那么统一的解决方案是：

Sub Button1_Click()

    Dim in1%
    Const bdTolerance# = 0.01

    For in1 = 97 To 99
    
        With Range("B95")
            .GoalSeek Goal:=Cells(in1, "O"), ChangingCell:=Range("B4")
    
            If .Value <= Cells(in1, "O") * (1 + bdTolerance) And _
                .Value >= Cells(in1, "O") * (1 - bdTolerance) Then
                Cells(in1, "P") = Range("B4")
            Else
                Cells(in1, "P") = False
            End If
        End With
            
    Next in1

End Sub