Excel VBA中的范围偏移列

我正在使用此代码来设置范围:

Set rngsearch = xGBP.Range("B1", Columns("B").Find(1, Cells(Rows.count - 1, "B")).Offset(-1)) 

这工作正常。 然后我想要抵消这个范围select列E而不是B,并尝试:

 rngsearch = rngsearch.Offset(0, 3) 

我的testing显示这返回一个空的数组。 任何解决scheme

您的第二行代码缺lessSet命令。 当分配对象(如范围)时,必须将对象variables设置为等于对象。

 Set rngsearch = rngsearch.Offset(0,3)