[[20150311114205]]　『処理を早くしたい』（いちご大福）　ページの最後に飛ぶ

『処理を早くしたい』（いちご大福）

VBA初心者です。
下記のコードを実行すると、画面がちらちらと動く感じです。
結果は問題無いようですが、
早くする方法が有りましたら御教示をお願いします。

Sub 重複削除()

    Application.ScreenUpdating = False

    Dim g As Long

    z = Range("A" & Rows.Count).End(xlUp).Row
    For z = z To 2 Step -1
        If Cells(z, "A").Value = Cells(z - 1, "A").Value Then
            Range(Cells(z, "A"), Cells(z, "E")).Delete Shift:=xlUp
        End If
    Next
    Application.ScreenUpdating = True
End Sub

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 A 列の重複行を削除していると思うのですが、標準機能の「データ」重複の削除でA列を
 選択して実行してはどうでしょうか。

 マクロにしたければ、それを記録すればそのまま使用できると思います。

 最近削除に関してはこんなのもありました。
[[20150126081318]]　『VBA処理の高速化』（ななママ）

（Mook） 2015/03/11(水) 11:56

Mookさん有難う御座いました。
標準機能、及びリンク先で勉強させていただきます。
（いちご大福） 2015/03/11(水) 12:11

コメント返信：

[ 一覧(最新更新順) ]

[[20150311114205]] 『処理を早くしたい』（いちご大福） ページの最後に飛ぶ

[[20150311114205]]　『処理を早くしたい』（いちご大福）　ページの最後に飛ぶ