如何拆分變量程序

所以我的代碼很簡單，但我不知道如何以簡單的方式拆分它。如何拆分變量程序

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

2013-08-02 Dopeyy2

問題是有點不清楚但這是可能的解決方案：

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

2013-08-02 20:08:05

我想我沒有解釋我的背景故事足夠好，我的錯。因此，我試圖將它用作後續編碼的範圍。表格（「PalmFamily」）。選擇範圍（o）.Slecet ActiveSheet.Paste – Dopeyy2

但行Set o =表（「PalmFamily」）。範圍（B1）.End（xlDown）.Select不工作，所以我想我需要將它拆開才能正常工作 – Dopeyy2

所以，你在我的答案中有。你不需要把它稱爲'Range（o）.select'，而是'o.select'就足夠和正確了。 –

回答