| |
▼初心者1 さん：
>ループさせて比較していくのだとは思うのですが・・・
Sub try1()
Dim i As Long
Dim a1 As Range, a2 As Range
Set a1 = Range("A1").Resize(10)
Set a2 = Range("A21").Resize(10)
a1.Interior.ColorIndex = xlNone
a2.Interior.ColorIndex = xlNone
For i = 1 To a1.Count
If a1.Item(i).Value = "○" Then
If a2.Item(i).Value = "○" Then
a1.Item(i).Interior.ColorIndex = 16
a2.Item(i).Interior.ColorIndex = 16
End If
End If
Next
End Sub
>A1〜A100など範囲が多い場合は、配列に格納してから比較したほうが
>処理は早いのでしょうか。
処理経過が分かるほど遅いなら、
Application.ScreenUpdating = False / True
の制御を入れてください。
それでも遅いときは、配列方式に切り替えるわけですが、今回のような
セルを塗りつぶす処理は配列化できないので、効果はさほど期待できな
いかも。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
