2009-12-22 24 views

回答

1

這可能會回答你的問題compare two columns

+0

謝謝!我作爲一個VB宏運行,它似乎工作。 – Rob 2009-12-22 11:50:04

1

您可以使用ADO數據庫類型的動作,例如:

Dim cn As Object 
Dim rs As Object 
Dim strFile As String 
Dim strCon As String 
Dim strSQL As String 
Dim i As Integer 

''http://support.microsoft.com/kb/246335 

strFile = ActiveWorkbook.FullName 

''Note HDR=No, so F1,F2 etc is used for column names 
''If HDR=Yes, the names in the first row of the range 
''can be used. 
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile _ 
    & ";Extended Properties=""Excel 8.0;HDR=No;IMEX=1"";" 

Set cn = CreateObject("ADODB.Connection") 
Set rs = CreateObject("ADODB.Recordset") 

cn.Open strCon 

strSQL = "SELECT F1 FROM [Sheet9$] WHERE F2 Is Null OR UCase(F2)<>UCase(F1)" 

rs.Open strSQL, cn, 3, 3 

Worksheets("Sheet10").Cells(2, 1).CopyFromRecordset rs 
相關問題