0

この式では:

With Intersect(wsDAO.UsedRange, wsDAO.Columns("R"))
            .AutoFilter 1, "<>Same"
            With Intersect(.Offset(2).EntireRow, .Parent.Range("B:O"))
                .Copy wsDAR.Cells(Rows.Count, "B").End(xlUp).Offset(1)
                .EntireRow.Delete
            End With
            .AutoFilter
        End With

列RのwsDAOからセルを取得できますが、「同じ」という単語は別のページ「wsDAR」にコピーを置き、元のページを削除します。

私がやりたいこと、どこから始めればよいかわかりませんが、私が考えていたのは、スクリプトのこの部分を使用することです:

lastrow = wsDAO.Range("A" & Rows.Count).End(xlUp).Row

With Intersect(.Offset(2).EntireRow, .Parent.Range("B"))
     .Copy wsDAO.Cells(Rows.Count, "B").End(xlUp).Offset(1)
End With

そして、上記の式のセルがある場所で使用し、データが含まれる最後の行までコピーします。

どこから始めればよいかわかりません。別のセルからデータをコピーした場合、「.Copy」が保存されたものを上書きするため、それは機能しません。

誰かがこれで私を助けることができますか? 問題を解決するのに数行かかることはわかっていますが、頭を抱えているようには見えません。

どんな助けでも感謝します。

4

1 に答える 1

0

サンプル ファイルから、I1 の数式を列 I の空のセルにコピーします。次のコード行でこれを行う必要があります。

lastrow = wsDAO.Cells(Rows.Count, "I").End(xlUp).Row

wsDAO.Range("I1:I" & lastrow).SpecialCells(xlCellTypeBlanks).FormulaR1C1 _
    = wsDAO.Cells(1, "I").FormulaR1C1
于 2012-09-24T17:17:43.537 に答える