1

我的 Excel 文件中有 3 个工作表。缺失（25,000 行）、有效（18,000 行）和匹配（空白）。

我需要比较缺失和有效列 D 中的值，并将所有匹配项的所有行复制到匹配表。

如果我能以某种方式进行通配符搜索，那也很好，例如雅培实验室匹配雅培实验室的一种方式。如果那不可能，那么如果有办法突出显示已匹配的行，以便我可以手动查找通配符匹配项，将不胜感激。

这是我尝试过的，我通过谷歌找到了它，但我并不完全理解代码。它运行了几分钟没有错误，但没有提取任何数据：

Sub CopyRows() 
Dim cell As Range 
Dim found As Range 
Dim dcol 
Dim bcol 
Dim totalrows1 As Long 
Dim totalrows2 As Long 

totalrows1 = Sheets("Valid").UsedRange.Rows.Count 
bcol = "$D$2:$D$" & totalrows1 
totalrows2 = Sheets("Missing").UsedRange.Rows.Count 
dcol = "$D$2:$D$" & totalrows2 
For Each cell In Sheets("Valid").Range(bcol) 
    If Not Sheets("Missing").Range(dcol).Find(What:=cell.Value, LookAt:=xlWhole) Is Nothing Then 
        Set found = Sheets("Missing").Range(dcol).Find(What:=cell.Value, LookAt:=xlWhole) 
        If found.Offset(0, -3).Value = cell.Offset(0, 1).Value And found.Offset(0, -2).Value = cell.Offset(0, -1).Value Then 
            cell.Offset(0, 2).Value = found.Offset(0, -1).Value 
        End If 
    End If 
Next cell
End Sub
4

1 回答 1

0

不会管理近似匹配，但除此之外：合并缺失和匹配中的有效，排序ColumnD然后应用带有条件格式的突出显示以识别相邻匹配的“D”值。过滤并删除那些未突出显示的。审查SU486330可能会有所帮助。

于 2012-10-16T01:33:37.917 回答