2009-12-22 99 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 
相关问题