小编Cou*_*awa的帖子

我想在 Excel 中自动化一些事情，问题是我绝对不是程序员/脚本编写者，所以这对我来说都是陌生的。

我有一个列表，每次导入一组新值时长度都会发生变化，我想要的是程序检查 a 列（带有标题）中的某些值 IE：

Sub Grade()
    If Range("A2").Value = 2031 Then
        Range("H2").Value = "Grade 4"
        ElseIf Range("A2").Value = 2030 Then
        Range("H2").Value = "Grade 5"
        ElseIf Range("A2").Value = 2029 Then
        Range("H2").Value = "Grade 6"
        ElseIf Range("A2").Value = 2028 Then
        Range("H2").Value = "Grade 7"
        ElseIf Range("A2").Value = 2027 Then
        Range("H2").Value = "Grade 8"
        ElseIf Range("A2").Value = 2026 Then
        Range("H2").Value = "Grade 9"
        ElseIf Range("A2").Value = 2025 Then
        Range("H2").Value = "Grade 10"
        ElseIf Range("A2").Value = 2024 Then
        Range("H2").Value = "Grade …