如果条目出现在另一列中，如何删除它们？

本文介绍了如果条目出现在另一列中，如何删除它们？的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

两列：A列包含可用期刊标题的完整列表； B列包含我的图书馆已预订的那些条目。

Two columns: Column A contains a complete list of available journal titles; Column B contains the ones to which my library already subscribes.

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

Is it possible to delete entries from Column A if they also appear in Column B?

换句话说，我想燕尾两列，以便两列都没有条目。

In other words, I want to 'dovetail' two columns so that no entry is represented in both columns.

推荐答案

您可以将ADO用于数据库类型的操作，例如：

You can use ADO for database-type actions, for example:

Dim cn As Object Dim rs As Object Dim strFile As String Dim strCon As String Dim strSQL As String Dim i As Integer ''support.microsoft/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