-1

两列:A 列包含可用期刊名称的完整列表;B 列包含我的图书馆已经订阅的那些。

如果它们也出现在 B 列中,是否可以从 A 列中删除条目?

换句话说,我想将两列“相吻合”,以便两列中都没有条目。

4

2 回答 2

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
于 2009-12-22T12:00:25.707 回答
0

这可能会回答您的问题比较两列

于 2009-12-22T11:36:40.667 回答