Excel VBA if语句仅输出0值

Question

这是我正在使用的代码。它非常简单，但仍未按预期工作。

Dim hey As Range
Set hey = Range("A1:A5")

For Each i In hey

If i.Value = "15" Then
i.Offset(0, 2).Value = "15" And i.Offset(0, 3).Value = "15"

ElseIf i.Value = 10 Then
i.Offset(0, 2).Value = "10" And i.Offset(0, 3).Value = "10"

ElseIf i.Value = 5 Then
i.Offset(0, 2).Value = "5" And i.Offset(0, 3).Value = "5"

ElseIf i.Value > 15 And i.Value = "*5" Then
i.Offset(0, 2).Value = "10" And i.Offset(0, 3).Value = "5"

Else: i.Offset(0, 2).Value = 10 And i.Offset(0, 3).Value = 10
End If
Next i

现在，它只会被2列和输出0所抵消。我无法区分为什么和我在心理绳索的最后。我确信这是一件令人沮丧的事情，我忽视了它。

我已经尝试单步执行，看起来它正确评估了我的示例中的每个值，但仍然给出了0值。此外，我正在玩引文，看看是否与它有关，但它们是我想要使用的字符串。

感谢您的帮助。