EXCEL - 创建自动化值列表(不重复)

时间:2018-05-31 07:14:41

标签: excel vba list key-value-store

我有一个包含大量日期的列表(有些是重复的或多次出现)。

Date        REF A          REF B
21/05/18    7134090-509 
21/05/18    A075124-605 
21/05/18    1371030-509 
22/05/18    A921069-501    CP0428419
22/05/18    CD2045-4       CP0716358
23/05/18    B811232MD501   CP1239676
28/05/18    41141026-501    

我想创建一个显示每个值的自动值列表,当我在上一个列表中添加新行时,它会自动更新。

Results

Date
21/05/18
22/05/18
23/05/18
28/05/18

我想在VBA中使用所选日期,因此我需要将其保存到变量中。

非常感谢。

1 个答案:

答案 0 :(得分:0)

您可以拥有一个以示例values命名的新工作表,并在Date列上定义A:A之类的范围。 现在您可以将其存储在变量

Set valuesSheet = Worksheets("values")
Set myDates = valuesSheet.Range("Date")

现在您的所有日期都存储在myDates