Question

我大约有5000条记录的人，这些记录中有很多重复的人。我需要运行一个宏，以检查“姓氏”列中是否有重复的记录，并运行多个循环结构，以检查每个列是否与该名称的其他列相对。我认为它也可能需要某种形式的串联。

这基本上是我正在查看的内容，但我还有很多记录。：

到目前为止，这是我尝试过的，但是进展不顺利...：

Sub FixDB()

Dim rptSheet As Worksheet
Dim Alumni As Worksheet

Dim datRow As String
Dim datCol As String
Dim crntName As String
Dim rptRow As String
Dim rptCol As String
Display.Alerts = False

    Sheets("rptSheet").Select
    Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.ClearContents

crntName = Alumni(2, 3).Value

While RowsExist

    if Alumni(datRow, 3).value = crntName

        While cols exist

            if rptSheet(rptRow, rptCol).Len()=0                        

            End If

Wend

    Else

    End If



Display.Alerts = True
MsgBox = "Done"
End Sub

Excel Macro解决长期联系问题的方法

0 个答案: