时间戳

首页 > 解决方案 > 如果在另一个工作表中满足条件，我如何创建唯一的更新列表？

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

问题描述

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

如果D36:D160 是“Fælles”或“Lagt ud”
，则应将该区域中的 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”复制到另一个工作表。现在我只需要一个将唯一值复制到以前不存在的另一个列表的代码。所以我可以通过点击命令按钮来不断更新列表。

标签： excelvbalistif-statementunique

解决方案

您可以使用

index(range;row;column)

或者

Vlookup()

更轻松

推荐阅读