|
よろしくお願いします。countifのマクロを作りました。
元データ、参照データとも200件程度のものなのですが、下のマクロですと2〜3分処理に掛かってしまい実用的ではありません。どうすれば処理が早くなるでしょうか?
ご指導よろしくお願いします。
Sub 重複チェック()
Application.ScreenUpdating = False
Cells(8, 12).Formula = "=COUNTIF('電気2'!$B$6:$B$157,電気!B8)"
Cells(8, 12).Copy
Cells(8, 12).Offset(1).PasteSpecial
Do Until ActiveCell.Offset(, 1).Value = ""
ActiveCell.Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Loop
Range("L8", Range("L8").End(xlDown)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True
|
|