vba报错应用程序定义或者对象定义出错？

软件版本：Office2007 方法如下： 在VBA中如果使用了系统不认可的对象表示方法等，例如下面的Range表示方法，系统就不认可： 这样，在运行程序时，就会提示错误： 将代码中的错误更正，用正确的表示方法来使用对象或应用程序，就不会出错了：

在你的代码中 i 没有定义。

看下面这一段

If n Mod 2 = 0 Then

i = 1 + WorksheetFunction.RoundUp(n / 2, 0) + WorksheetFunction.RoundDown((m - 1) / 5, 0) * 4

j = m Mod 5

If j = 0 Then

j = 5

End If

End If

Sheets("sheet5").Cells(m, n) = Sheets("sheet1").Cells(i, j)

循环中第一次运行此段代码时，当 m mod 2 不等于0时 ，程序并没有给 i任何值，也就是说这时 i 还是一个 空值时

接下来来运行Sheets("sheet5").Cells(m, n) = Sheets("sheet1").Cells(i, j)

就会出现错误

困为 i 没有值。

---