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.
行を選択してから CtrlShift を押し下げようとしていますが、.SELECT などはありません...
Set rng = wsDATA.Range("A8").EntireRow Set rng = Range(rng, rng.End(xlDown))
しかし、私Application Defined or Object Defined Errorは2行目に取得します。どうしてこれなの?
Application Defined or Object Defined Error
私が常に思い出していることの 1 つは、問題が発生したときにコードを読み直して、すべてが適切であることを確認することです。
この場合、wsDATA.range の前にワークシート オブジェクトを使用する必要がありました。
wsDATA
Set rng = wsDATA.Range("A8:A8").EntireRow Set rng = wsDATA.Range(rng, rng.End(xlDown))