使用vbscript查找excel列中的dups

我在通过VBscript创build的excel列中find重复的问题。

我目前正在从数据库抓取数据，打开一个excel文件，将数据放在数据库中，然后在E列按字母顺序排列数据（如果不需要，可以很容易地将其删除）。

现在我面临的问题是，我正在试图findE （错误） 列中的任何重复。

如果有重复，我想复制副本，并将其粘贴到另一个表（列A） ，我已经创build

Set oWS7 = oWB.Worksheets(7) oWB.Sheets(7).Name = "Dups" 

在oWS7的B栏中，我想把所有对应的列C （帐户）从原始工作表中删除。

因此，对于多个帐户的比例将会有1个错误 。 如果没有重复，我想让他们一个人留下。 我不确定这是多么清楚，但任何问题/对此的帮助将不胜感激。 提前致谢。

Answer 1

我将做出以下假设：

• 工作表中的内容从第一行开始
• 第一行（只有第一行）是一个标题行。
• 标题行和数据行之间没有空行。
• 数据已经sorting。

如果这些假设适用，下面的内容应该可以工作（一旦你input了正确的图纸编号）：

 Set data = oWB.Sheets(...) '<-- insert correct sheet number here j = 1 For i = 3 To data.UsedRange.Rows.Count If data.Cells(i, 5).Value = data.Cells(i-1, 5).Value Then oWS7.Cells(j, 1).Value = data.Cells(i, 5).Value oWS7.Cells(j, 2).Value = data.Cells(i, 3).Value j = j + 1 End If Next 

Answer 2

' 如何从源excel表单中find重复单元格的值 。

 Set oXL = CreateObject("Excel.application") oXL.Visible = True Set oWB = oXL.Workbooks.Open("ExcelFilePath") Set oSheet = oWB.Worksheets("Sheet1") 'Source Sheet in workbook r = oSheet.usedrange.rows.Count c = oSheet.usedrange.columns.Count inttotal = 0 For i = 1 To r For j = 1 To c If oSheet.Cells(i,j).Value = "aaaa" Then inttotal = inttotal+1 End If Next Next MsgBox inttotal oWB.Close oXL.Quit