激活Excel中的特定单元格使用VBA结果到错误400

我只是在第一张纸上获得所有带有红色字体颜色的文本，然后将其存储在一个数组中。 然后，我想导航到另一个工作表，并激活一个特定的单元格，我想最初将值放在我的上一个数组中。 但是在另一张纸上激活一个单元格的部分导致了错误400.我确信自从我以前已经使用它是正确的。 我不知道是否在我的代码的第一部分有一些操作，影响了这一点。

Sub isFontRed() Cells(2, 1).Select Dim missingJobs(0 To 600) As String Dim size As Integer, row As Integer, col As Integer, jobIndex As Integer jobIndex = 0 For row = 2 To 10 '600 For col = 1 To 2 If (CStr(Cells(row, col).Font.ColorIndex) = 3) Then missingJobs(jobIndex) = Cells(row, col) jobIndex = jobIndex + 1 End If Next col Next row Dim jobs As String jobs = "" For i = 0 To UBound(missingJobs) - 1 jobs = jobs + missingJobs(i) + ", " Next i Worksheets("New Jobs in New Folder").Activate Cells(4, 2).Activate End Sub 

Answer 1

已经有一段时间了，但你是否想要select细胞（4，2）？ 我不认为你可以像工作表一样“激活”一个单元格。 尝试单元格（4，2）。请改为select。