0

所以我的代码很简单,但我不知道如何以简单的方式分解它。

Dim o As Range  
Set o = Sheets("PalmFamily").Range(B1).End(xlDown).Select

那么如何将“.Range(B1).End(xlDown).Select”像这样移动到下一行但仍然有它= o

Dim o As Range  
Set o = Sheets("PalmFamily").Select
Range(B1).End(xlDown).Select
4

1 回答 1

0

问题有点不清楚,但这是可能的解决方案:

Sheets("PalmFamily").Activate
Dim o As Range  
Set o = Sheets("PalmFamily").Range(B1).End(xlDown)
o.Select
于 2013-08-02T20:08:05.413 回答