| |
こんばんは。
この手の処理ですと「画面の更新を行わない」をキーワードにすれば
適切な過去ログが出てきそうですね。
また、ActiveやSelectを毎回行わないというのも定番の回答な気がします。
Yukiさんとは別案を（速度的にはイマイチな気もしますが…）
とりあえず書いてみたのでのせてみます。
Sub test()
Const StartRow& = 2
Dim LastRow&, i&, RetCnt%
Dim Rn As Range
With Sheets(1)
Set Rn = .Range(.Cells(1, 1), _
.Cells(.Cells(65526, 1).End(xlUp).Row, 1))
End With
With Sheets(2)
.Select
LastRow = .Cells(65526, 1).End(xlUp).Row
For i = LastRow To StartRow Step -1
With .Cells(i, 1)
RetCnt = Application.WorksheetFunction.CountIf(Rn, .Text)
If (RetCnt <> 0) Then
.Interior.ColorIndex = 6
'Delete 処理の変わりに色をつけてみる。
End If
End With
Next i
End With
End Sub
|
|
yuto
- 11/7/28(木) 22:21 -
