excel区域对比VBA执行代码

想要一个区域对比的执行代码，现在有两个区域，A区域（比如C3:C50，这区域是不固定的,所以区域只能提示选择)里从第一个单元格依次去B区域（如H10:H25这区域也是固定的)里找查有没有想同的值，如果有就把本单元格加黄色底纹，如：C3里的值在H10:H25里找不到就不处理，如里C3里的值在H10:H25里有出现，则把C3加上黄色底纹。请高手给个代码!

如同这样的情况区域大小也不一样

Sub s()
    Dim rg1 As Range, rg2 As Range, c As Range, d As Object
    Set rg1 = Application.InputBox("请输入区域A", , , , , , , 8)
    Set rg2 = Application.InputBox("请输入区域B", , , , , , , 8)
    Set d = CreateObject("scripting.dictionary")
    For Each c In rg2
        d(c.Text) = ""
    Next
    For Each c In rg1
        If d.exists(c.Text) Then
            c.Interior.Color = vbYellow
        End If
    Next
End Sub

sub test() activeworkbook.worksheets("sheet1").sort.sortfields.clear activeworkbook.worksheets("sheet1").sort.sortfields.add key:=range("c:c"), _ sorton:=xlsortonvalues, order:=xldescending, dataoption:=xlsortnormal activeworkbook.worksheets("sheet1").sort.sortfields.add key:=range("d:d"), _ sorton:=xlsortonvalues, order:=xlascending, dataoption:=xlsortnormal with activeworkbook.worksheets("sheet1").sort .setrange range("c:d") .header = xlyes .matchcase = false .orientation = xltoptobottom .sortmethod = xlpinyin .apply end with end sub