使用Debug.print可以用来更好的调试VBA程序

通过ALT+F11代开VBA编程窗口）

插入模块，接着在窗口中输入以下代码，按F5执行

 

Sub Excute() Debug.Print 50 * 20 + 1End Sub

结果如下：

实例二：

Sub 执行()  Debug.Print Range("a:a").Count '计算工作表最大的行数  Debug.Print Range("1:1").Count '计算工作表最大的列数  Debug.Print Application.CountA(Range("a:a")) '计算工作表已经使用的列数 计算最后一行  Debug.Print Application.CountA(Range("1:1")) '计算工作表已经使用的列数 计算最后一列End Sub

Excle中内容如下：

 

执行结果如下：