私のコードは単純ですが、単純な方法で分割する方法がわかりません。
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