Question

我想在For语句中的B列中动态选择一个单元格。

然而我得到：＆＃34;应用程序定义或对象定义的错误＆＃34;

我该如何正确地做到这一点？

For i = 1 To 30
Sheets("Back").Range(Cells(i + 3, 2)).Select

Select Case ActiveCell.Value

Case "3"
Sheets("Back").Cells(i + 3, 2).Value = "Good"

Case "8"
Sheets("Back").Cells(i + 3, 2).Value = "Bad"


Case Else
Sheets("Back").Cells(i + 3, 2).Value = ""

End Select

Next i

Answer 1

试试这个：

对于i = 1到30

        Sheets("Back").Cells(i + 3, 2).Select

        Select Case ActiveCell.Value

        Case "3"
        Sheets("Back").Cells(i + 3, 2).Value = "Good"

        Case "8"
        Sheets("Back").Cells(i + 3, 2).Value = "Bad"


        Case Else
        Sheets("Back").Cells(i + 3, 2).Value = ""

        End Select

接下来我

动态选择For语句中的单元格

1 个答案: