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

我有一个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

---

您的Excel版本是否支持

唯一

公式？否则，您可以在

脚本.字典中循环并存储唯一值。让我检查并尝试循环也会得到任何帮助，谢谢您的建议BenIs代码位于
活动工作簿
或其他工作簿中吗？您将把唯一值（工作表、列）放在哪里？您将从何处获得它们（每个工作表中的一列）？列外有日期吗？如果不是，则应将搜索（替换）限制为这些列。请澄清。位于活动工作簿中，唯一值应在屏幕中弹出，以便我们知道所有唯一日期都可用，然后要求用户输入替换Sub DateUpdate（）Dim sht作为工作表Dim fnd作为日期Dim rplc作为日期ActiveSheet.Range（“C3:C29”）。AdvancedFilterAction:=xlFilterCopy，CopyToRange:=ActiveSheet.Range(“H3”），唯一：=True fnd=InputBox（“输入日期”）rplc=InputBox（“输入更新日期”），用于ActiveWorkbook中的每个sht。工作表sht.Cells.Replace what:=fnd，Replacement:=rplc，ulookat:=xlPart，SearchOrder:=xlByRows，MatchCase:=False，SearchFormat:=False，ReplaceFormat:=False下一列（“H”）。删除结束子项