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

 

转载于:https://www.cnblogs.com/yipeng-yu/p/5386210.html