EXCEL 跨表比较数据

Public Sub Compare(fullname As String, sheet As String)

Dim conn, sql, rows, i, cellContents ,rowIndex, colIndex

　　rowIndex = 2

　　colIndex = getColumnIndex("Name")

'获取目标表数据
Set conn = CreateObject("adodb.connection")
conn.Open "provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0';data source=" & fullname
sql = "select * from [" & sheet & "$]"
rows = conn.Execute(sql).getrows
conn.Close

Do
'选择原表单元格
ActiveSheet.Cells(rowIndex, colIndex).Select
　　　　'去除填充色
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With

cellContents = ActiveCell.Value

If cellContents <> "" Then
For i = 0 To UBound(rows, 2)
If cellContents = rows(2, i) Then
If rows(0, i) <> "apple" Then
'填充黄色
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With

End If
Exit For
End If
Next
End If

rowIndex = rowIndex + 1

Loop Until cellContents = ""

End Sub