Question

我的问题是我需要将excel 2007中的工作簿中的项目组合成一个工作表，但是需要删除重复项。我已经将大部分内容用于下面的代码，我甚至已经设置好在文档打开后的第二，几分钟，几小时内完成它。

但有两个重新出现的问题：

当我分享此文档时，允许其他人同时进行编辑，它会中断并且不再删除重复项。更不用说它发布标题的次数与表格一样多。
我不知道如何防止这个事情变得疯狂，当我正在编译代码时，它会在前几个周期正确地运行它然后开始快速重复。

我不是编码专家，我为noob卡道歉，但我不知道该怎么办。

        Private Sub Workbook_Open

    Application.OnTime Now + TimeValue("00:00:10), "ThisWorkbook.Combine" 'this ten second loop is an example'

    End Sub
Sub Combine
Applicatio.DisplayAlerts = False
Dim J as Integer
One Error Resume Next
Sheets(1).Select
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1:F1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offeset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(x1Up)(2)

End Sub

Next

Sub RemoverDuper

Dim icol As Long

With Sheets("Combined")
icol = Application.Match("Number"),.Rows(1),0)
With .Cells(1, 1).CurrentRegion
.RemoveDuplicates Columns:=icol, Header:=x1No
Application.DisplayAlerts = True

Sheets(1).Select
Sheets(1).Name = "Combined"

End With
End With
Next
End Sub

PS如果有语法错误或类似的东西，请指出给我，并知道我必须从记忆中重新输入所有内容，所以如果有错误，我很想知道。

在删除共享Excel文档

0 个答案: