Question

我正在分析调查回答，只想使用命令按钮将它们从指定的数值重新编码回原来的意义（这是否是最有效的格式？）。我想摆脱大量点击和＃34;查找/替换＆＃34;的单调乏味。以下是我与之合作的样本：

Sub Button1_Click()

Dim response As Integer, result As String
response = ActiveSheet.Range("A3:A58").Value

    If response = 1 Then result = "Individual Public School"
    ...
    If response = 8 Then result = "Museum (or other science-rich institution)"

ActiveSheet.Range("B3:B58").Value = result

End Sub

Excel在第三行停止了我，提示我一个调试选项。我哪里错了？对此有更优雅的解决方案吗？

我在Mac计算机上使用Microsoft Office 2010版本，如果这有帮助的话。

欢迎任何和所有提示！感谢。

Answer 1

您需要以下内容：

Sub Button1_Click()
    For Each r In Range("A3:A58")
        If r.Value = 1 Then r.Offset(0, 1) = "Individual Public School"
        '...
        If r.Value = 8 Then r.Offset(0, 1) = "Museum (or other science-rich institution)"
    Next r
End Sub

Excel VBA：if if语句多个？

1 个答案: