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 に答える