Vlookup匹配日期格式的数据时得到的是数值

金樽邀月

    各位大师，我用Vlookup匹配日期格式数据时得到的是数值，无法完成对比，请教高手如何解决。

taller

1. Sub 对比()
   
2. Worksheets("人事报表").Activate
   
3. h = 2
   
4. Do While Cells(h, 2) <> ""
   
5.       Cells(h, 8) = Application.VLookup(Cells(h, 2), Sheets("法务报表").Range("B:F"), 2, 0) & Application.VLookup(Cells(h, 2), Sheets("法务报表").Range("B:F"), 3, 0) & Application.VLookup(Cells(h, 2), Sheets("法务报表").Range("B:F"), 4, 0) & Application.VLookup(Cells(h, 2), Sheets("法务报表").Range("B:F"), 5, 0)
   
6.       Cells(h, 9) = Cells(h, 3) & Cells(h, 4) & CDbl(Cells(h, 5)) & CDbl(Cells(h, 6))
   
7.       Cells(h, 7) = "=Exact(H" & h & ",I" & h & ")"
   
8. h = h + 1
   
9. Loop
   
10. MsgBox "对比完毕！"
    
11. End Sub
    

复制代码