excel - 首先显示所有可用的唯一日期

Question

我有一个 VBA 脚本，它接受用户的输入来执行查找和替换，想要首先显示所有可用的唯一日期

我已经编写了这个 VBA 脚本来执行查找和替换，但我想在这里添加一个更多功能，它应该首先向我显示列中可用的所有不同日期的列表，然后我们可以执行查找和替换*

Sub dateupdation()

Dim sht As Worksheet
Dim fnd As Date
Dim rplc As Date

fnd = InputBox("Enter date")
rplc = InputBox("Enter updated date")

For Each sht In ActiveWorkbook.Worksheets
    sht.Cells.Replace what:=fnd, Replacement:=rplc, _
    LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
    SearchFormat:=False, ReplaceFormat:=False
Next sht
End Sub

标签： excelvba