Find centralized, trusted content and collaborate around the technologies you use most.
Teams
Q&A for work
Connect and share knowledge within a single location that is structured and easy to search.
所以我的代码很简单,但我不知道如何以简单的方式分解它。
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
问题有点不清楚,但这是可能的解决方案:
Sheets("PalmFamily").Activate Dim o As Range Set o = Sheets("PalmFamily").Range(B1).End(xlDown) o.Select