0

行を選択してから CtrlShift を押し下げようとしていますが、.SELECT などはありません...

        Set rng = wsDATA.Range("A8").EntireRow
        Set rng = Range(rng, rng.End(xlDown))

しかし、私Application Defined or Object Defined Errorは2行目に取得します。どうしてこれなの?

4

1 に答える 1

3

私が常に思い出していることの 1 つは、問題が発生したときにコードを読み直して、すべてが適切であることを確認することです。

この場合、wsDATA.range の前にワークシート オブジェクトを使用する必要がありました。

        Set rng = wsDATA.Range("A8:A8").EntireRow
        Set rng = wsDATA.Range(rng, rng.End(xlDown))
于 2012-10-28T13:59:07.133 に答える