Excel 为特定列填充特定文本

我是Stackoverflow和VBA领域的新手。实际上我需要一些代码方面的帮助

我已经创建了一个VBA（宏），我的代码中似乎没有

情景：

如果B3列有答案（或“平坦”或“PER”），则应适用于A3列中相同的所有列

比如说

如果A3到A500，那么B3到B500也有一个答案（无论是“平坦”还是“每”）

Sub-exe（）
数字为整数，结果为字符串
数字=范围（“a1”）。值
如果数字是这样的话：

Sub exe()

    Dim LastRow As Long, i As Long

    With ThisWorkbook.Worksheets("Sheet1")

        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

        For i = 1 To LastRow

            If .Range("A" & i).Value = 0.5 Then
                .Range("B" & i).Value = "FLAT"
            ElseIf .Range("A" & i).Value = 2 Then
                .Range("B" & i).Value = "PER"
            End If

        Next i

    End With

End Sub

您的问题是如何在列E中显示？您的代码只查看单元格
F3
和
IU3
，而不是整个列。这就是你想做的吗？你好，大本钟，是的，另一个问题是我不知道如何放置或查找最后一行，而不是查找1个单元格，它应该是查找整个列。我想要的结果是，如果F前面的列和E列应该有填充，例如，如果E3:E500列也有它应该有的数据填写F3:F500栏。我不明白你的问题。建议您阅读和的帮助主题。然后编辑你的问题以提供更多信息。嗨，很抱歉我编辑了我的描述，很抱歉，你能帮我吗？我已经编辑了代码。你能检查一下吗？如果有任何错误，我很抱歉，我编辑了手机上的代码。我的意思是我已经编辑了我身体信息中的描述场景。你能再次检查吗？我编辑了我问题的身体信息，因为有很多人感到困惑。
Sub exe()

    Dim LastRow As Long, i As Long

    With ThisWorkbook.Worksheets("Sheet1")

        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

        For i = 1 To LastRow

            If .Range("A" & i).Value = 0.5 Then
                .Range("B" & i).Value = "FLAT"
            ElseIf .Range("A" & i).Value = 2 Then
                .Range("B" & i).Value = "PER"
            End If

        Next i

    End With

End Sub