使用vbscript在excel列中查找DUP

我在通过VBscript创建的excel列中查找重复项时遇到问题

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

现在我面临的问题是，我试图在列E中找到任何重复项（错误）

如果有副本，我希望复制副本并将其粘贴到我创建的另一张图纸（a列）

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

在oWS7的列B中，我想把原始工作表中所有相应的列C（账户）放在一起

因此，对于多个帐户的比率，将有一个1错误。如果没有复制品，我想把它们单独留下。我不确定这有多清楚，但如果您有任何疑问/帮助，我将不胜感激。

---

提前感谢。

我将做出以下假设：

• 工作表中的内容从第一行开始
• 第一行（仅第一行）是标题行
• 标题行和数据行之间没有空行
• 数据已排序

如果这些假设适用，则以下各项应有效（一旦输入正确的页码）：

---

Set data=oWB.Sheets（…）”我将做出以下假设：


工作表中的内容从第一行开始
第一行（仅第一行）是标题行
标题行和数据行之间没有空行
数据已排序

如果这些假设适用，则以下各项应有效（一旦输入正确的页码）：

Set data=oWB.Sheets（…）”“如何从源excel工作表中查找重复的单元格值

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

“如何从源excel工作表中查找重复的单元格值

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

你是指VBScript还是VBA？你是指VBScript还是VBA？