Results of 1 - 1 of about 1215 for （Mook）
(0.001 sec.)
- [[20150311114205]]
- #score: 9211
- @digest: 6b8871c3d49a05c557ba462d283b87a3
- @id: 67472
- @mdate: 2015-03-11T03:11:03Z
- @size: 1053
- @type: text/plain
- #keywords: 大福 (8928), 20150126081318 (7748), 近削 (7380), ご大 (4405), 福） (3817), 準機 (2451), 複行 (2234), 複削 (1352), ママ (1287), 速化 (1208), 題無 (1101), 除() (1051), 高速 (823), 御教 (768), 重複 (570), screenupdating (539), 削除 (452), 早く (403), ク先 (382), 最近 (375), 標準 (339), 機能 (314), 御座 (310), 2015 (291), 水) (241), application (233), mook (217), 教示 (194), 実行 (193), cells (190), 画面 (181), 有難 (176)
- 『処理を早くしたい』（いちご大福）
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... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/201503/20150311114205.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97054 documents and 608267 words.
訪問者：