如何拆分变量过程

Question

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

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

那么如何移动“.Range（B1）.End（xlDown）。选择”下到这样的下一行，但仍然有它= o

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

Answer 1

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

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