如果在另一个工作表中满足条件，我如何创建唯一的更新列表？答案

【问题标题】：How do I create unique updating list if criteria is met in another worksheet?如果在另一个工作表中满足条件，我如何创建唯一的更新列表？
【发布时间】：2018-12-29 14:46:07
【问题描述】：

如果满足某些条件，我想将特定范围的列复制到另一个工作表。

IF D36:D160 是“Fælles”或“Lagt ud”
THEN 应将此区域中的 A:H 列复制到工作簿中的另一个工作表在同一地区。

但是，它必须放在第一个空格中并且是唯一值。

随着列表的更新，它必须复制到另一个列表而不复制相同的数据。

请记住，我是一名木匠，会在业余时间为我和我的合作伙伴制定预算。

Private Sub CommandButton1_Click()
A = Worksheets("Stig Okt").Cells(Rows.Count, 1).End(xlUp).Row

For i = 34 To A

    If Worksheets("Stig Okt").Cells(i, 4).Value = "Fælles" Then

        Worksheets("Stig Okt").Rows(i).Columns("A:H").Copy
        Worksheets("Laura Okt").Activate
        b = Worksheets("Laura Okt").Cells(Rows.Count, 1).End(xlUp).Row
        Worksheets("Laura Okt").Cells(b + 1, 1).Select
        ActiveSheet.Paste

    ElseIf Worksheets("Stig Okt").Cells(i, 4).Value = "Lagt ud" Then

        Worksheets("Stig Okt").Rows(i).Columns("A:H").Copy
        Worksheets("Laura Okt").Activate
        b = Worksheets("Laura Okt").Cells(Rows.Count, 1).End(xlUp).Row
        Worksheets("Laura Okt").Cells(b + 1, 1).Select
        ActiveSheet.Paste
        Worksheets("Stig Jan").Activate

    End If

Next

End Sub

更新我已成功将标准“Fælles”和“Lagt ud”复制到另一个工作表。现在我只需要一个将唯一值复制到以前不存在的另一个列表的代码。所以我可以通过点击命令按钮来不断更新列表。

【问题讨论】：

标签： excel vba list if-statement unique

【解决方案1】：

你可以使用

index(range;row;column)

或

Vlookup()

更简单

【讨论】：

谢谢马鲁斯！我对此的经验和知识几乎为零，并且只是通过查看不同的示例来了解这段代码。您能否在上下文中使用您的示例？ :)