|
私も作ってみました。
上位9位なのか、2位なのかよくわかりませんでしたが、
上位9位でやってます。
表は並べ替えしていないと考えています。
Sub Macro1()
Dim myVal, myVal2
Dim i As Long, j as Long
Dim myRnk As Long
myRnk = 9
With Sheets("Sheet1")
.Cells.Interior.ColorIndex = xlNone
.Range("B7", .Range("C65536").End(xlUp)).Sort Key1:=.Range("C7"), _
Order1:=xlDescending, Header:=xlGuess
.Range("F7", .Range("G65536").End(xlUp)).Sort Key1:=.Range("G7"), _
Order1:=xlDescending, Header:=xlGuess
myVal = .Range("B7", .Range("B65536").End(xlUp)).Value
myVal2 = .Range("F7", .Range("F65536").End(xlUp)).Value
For i = 1 To myRnk
For j = 1 To myRnk
If myVal(i, 1) = myVal2(j, 1) Then
.Cells(i + 6, 2).Interior.ColorIndex = 3
.Cells(j + 6, 6).Interior.ColorIndex = 3
End If
Next
Next
End With
End Sub
|
|