2 つの列: 列 A には、利用可能なジャーナル タイトルの完全なリストが含まれます。列 B には、私のライブラリが既に購読しているものが含まれています。
列 B にも表示されている場合、列 A からエントリを削除することはできますか?
つまり、両方の列にエントリが表示されないように、2 つの列を「一致」させたいと考えています。
2 つの列: 列 A には、利用可能なジャーナル タイトルの完全なリストが含まれます。列 B には、私のライブラリが既に購読しているものが含まれています。
列 B にも表示されている場合、列 A からエントリを削除することはできますか?
つまり、両方の列にエントリが表示されないように、2 つの列を「一致」させたいと考えています。
たとえば、次のようなデータベース タイプのアクションに 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
これはあなたの質問に答えるかもしれません2つの列を比較してください