会是错的,如果写下面的代码

Sub Something()
 Dim i As integer
 Dim xRange As Range
 Dim yRange As Range

 Set xRange= Range("x_table")
 Set yRange= Range("y_table")

 For i = 1 To xRange.Columns.Count
    xRange.Columns(i) = Application.Sum(y_table.Columns(i))
 Next i
End Sub

而无需特别声明每个变量?像波纹管;

Sub Something()
 Set xRange= Range("x_table")
 Set yRange= Range("y_table")

 For i = 1 To xRange.Columns.Count
    xRange.Columns(i) = Application.Sum(y_table.Columns(i))
 Next i
End Sub
有帮助吗?

解决方案

如果显式的选项未打开你的可以的那样做,但我不会推荐它,因为那么你依靠框架,在变量的类型是猜测处理,这可能会导致意想不到的结果。

其他提示

它工作正常,直到它没有。

您的例子是非常简单的,但其完全可以想出的情况会引起问题的。

更好的声明所有,这样你就不会冒险在运行时遇到了不确定性。

我也偏爱拾音的评论就自动完成。

许可以下: CC-BY-SA归因
不隶属于 StackOverflow
scroll top