请VB高手指教，急、急、急、急、急、急、急、急！！！！

Question

我有很多excel文件，现在想写个脚本，脚本运行时，系统自动检查每个excel中指定的列，做一次循环，并把这一列中所有单元格内容重复的信息提示给用户。。请高手赐教。最好有代码和说明，小弟万分感谢！！！

Answer 1

VB操作Excel的代码

Answer 2

EXCEL 宏代码（VBA），测试通过！
    Dim lRows As Long
    Dim lCols As Long
    Dim arrCell() As String
    
    lRows = Sheet1.Cells.SpecialCells(xlCellTypeLastCell).Row
    lCols = Sheet1.Cells.SpecialCells(xlCellTypeLastCell).Column
    
    ReDim arrCell(1 To lRows * lCols, 0 To 2) As String
    Dim i As Long
    Dim j As Long
    Dim arrCount As Long
    Dim m As Long
    
    arrCount = 0
    For i = 1 To lRows
        For j = 1 To lCols
            arrCount = arrCount + 1
            arrCell(arrCount, 0) = i
            arrCell(arrCount, 1) = j
            arrCell(arrCount, 2) = Excel.ActiveWorkbook.Sheets(1).Cells(i, j)
        Next
    Next
    
    Dim s1 As String
    Dim s2 As String
    For i = 1 To lRows
        For j = 1 To lCols
            s1 = Excel.ActiveWorkbook.Sheets(1).Cells(i, j)
            s1 = Trim(s1)
            For m = 1 To arrCount
                If arrCell(m, 0) = i And arrCell(m, 1) = j Then
                Else
                    s2 = arrCell(m, 2)
                    s2 = Trim(s2)
                    If s1 = s2 Then
                        MsgBox ("重复单元格：" & Str(i) & "," & Str(j) & " 与 " & Str(arrCell(m, 0)) & "," & Str(arrCell(m, 1)))
                        Exit For
                    End If
                End If
            Next
        Next
    Next

Answer 3

msailsoft兄弟，你测试通过了，为什么到我这就通不过呢。还请指点迷津哈！！

Answer 4

你是在Excel里面按Alt+F11键在Excel VBA环境下运行代码的吗？