使用Debug.print可以用来更好的调试VBA程序
通过ALT+F11代开VBA编程窗口)
插入模块,接着在窗口中输入以下代码,按F5执行
Sub Excute()
Debug.Print * +
End 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中内容如下:
执行结果如下: