在简单的VBA矩阵代码中键入Mismatch Error

Question

Sub MacroTemp()

   Dim i, j As Integer
   Dim c(1, 1) As Double
   For i = 0 To 1
        For j = 0 To 1
            c(i, j) = i + j
            Sheets(Sheet2).Cells(i + 1, j + 1).Value = c(i, j)
         Next j
    Next i
End Sub

显示类型不匹配错误。这个代码有什么问题？

Answer 1

看起来你没有正确引用Sheet2。

如果Sheet2是工作表的名称，那么您可以像这样引用它：

Sheets("Sheet2").Cells(i + 1, j + 1).Value = c(i, j)

或者，如果Sheet2是您所指的工作表的code name，则可以使用此代码：

Sheet2.Cells(i + 1, j + 1).Value = c(i, j)

我假设您没有在任何地方声明字符串变量Sheet2。