时间戳

首页 > 解决方案 > 这个 vba 代码有什么问题？设置 SourceRng = SourceWS.Range(Cells(1, 6), Cells(650, 11))

excel - 这个 vba 代码有什么问题？设置 SourceRng = SourceWS.Range(Cells(1, 6), Cells(650, 11))

问题描述

Set SourceRng = SourceWS.Range(Cells(1, 6), Cells(650, 11))

标签： excelvba

解决方案

任何一个 Cells 实例都没有工作表引用，因此它们将引用活动工作表上的单元格，或者如果代码在工作表模块中，则该模块适用于工作表。

有多种方法可以解决这个问题，这里有一个，

Set SourceRng = SourceWS.Range(SourceWS.Cells(1, 6), SourceWS.Cells(650, 11))

其他，

With SourceWS
    Set SourceRng = .Range(.Cells(1, 6), .Cells(650, 11))
End With

还有一个

Set SourceRng = SourceWS.Cells(1, 6).Resize(650, 6)

推荐阅读