连续重复

Question

在 VBA 方面，我完全是新手，并且根据在线教程创建了我的 VBA。 一点背景知识：我的数据集由 3 张具有不同信息的工作表组成，如果数据以特定标准输入到第一个工作表中，则整行然后移动到第二个工作表中，可以进一步输入。如果在第二张纸上选择了一个选项，则整行必须移动到第三张纸。所以基本上我只会拥有任何一条记录的 1 个副本。

我遇到的问题是，当该行从表 1 剪切到表 2 时，我无法在不创建重复副本的情况下编辑表 2 中的特定数据，就好像没有粘贴一样即使粘贴的数据在那里并且是可编辑的，也能找到。

如果有帮助，我将使用索引行。 剪切的单元格被粘贴到新工作表中，并从原始工作表中删除该行

请有人，任何可以解决此问题的人将不胜感激。

这里是剪切/粘贴的代码

Private Sub 
    CommandButton4_Click()
    a = Worksheets("Database").Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To a
        If Worksheets("Database").Cells(i, 16).Value = "Retention" Then
            Worksheets("Database").Rows(i).Cut 
            Worksheets("Archive").Activate
            b = Worksheets("Archive").Cells(Rows.Count, 1).End(xlUp).Row
            Worksheets("Archive").Cells(b + 1, 1).Select
            ActiveSheet.Paste
            Worksheets("Database").Activate 
            Rows(i).EntireRow.Delete
            MsgBox "ARCHIVE RECORDS UPDATED", vbInformation 
        End If
    Next
End Sub

（这是重复的 2x 工作表）–

Answer 1

在需要删除项目的集合中运行时，不要从头到尾，而是从头到尾。

让我举个例子，删除列表 A 的重复项：

index value
    1     1
    2     2
    3     2
    4     2
    5     3

执行这个简单的伪代码：

for (i = 1 to 4)
{ if A(i) = A(i+1) then remove A(i) }

这是结果：

i  A before       A afterwards
1  1,2,2,2,3      1,2,2,2,3
2  1,2,2,2,3      1,2,2,3
3  1,2,2,2,3      1,2,2,3
4  1,2,2,3        => either stop or error

现在在另一个意义上：

for (i = 5 downto 2)
{ if A(i) = A(i-1) then remove A(i) }

i  A before       A afterwards
5  1,2,2,2,3      1,2,2,2,3
4  1,2,2,2,3      1,2,2,3
3  1,2,2,3        1,2,3
2  1,2,3          1,2,3