excel - 从 Excel 电子表格中删除包含重复数据的行？

Question

我有一个 Excel 电子表格，大约有 18k 行和三列。我想用它作为 Access 数据库中的键。所以这三列是

[IDKeyNumber]    [Name]    [Category]

问题是在某些地方 ID 号重复，因为该类别有两个类别代码(typeA 和 typeB)

我真正需要知道如何做的就是删除 Excel 电子表格中 ID# 和名称匹配的每个“行/记录”(如匹配另一条记录以隔离重复)并且类别 = TypeB。

所以我只想删除类别字段中具有此 TYPEB 的所有重复行/记录。

谢谢!

IA:某些行或记录具有有效的 TypeB 类别，该类别不是重复的，这就是为什么我需要记录 = 记录(类别想法除外)...谢谢

Answer 1

可以在 Excel 中使用 ADO 和 SQL，例如:

Dim cn As Object
Dim rs As Object

strFile = Workbooks(1).FullName
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile _
    & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"

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

cn.Open strCon

strSQL = "SELECT id, name, max(type) AS type FROM [Sheet1$] GROUP BY id, name"

rs.Open strSQL, cn

For i = 0 To rs.Fields.Count - 1
    Sheets("Sheet2").Cells(1, i + 1) = rs.Fields(i).Name
Next

Sheets("Sheet2").Cells(2, 1).CopyFromRecordset rs