急求excel随机抽取日期的公式！！
发布网友
发布时间：2022-04-21 06:07
共4个回答
热心网友
时间：2022-06-18 09:57
菜单栏点【工具】【选项】【重新计算】勾选【迭代计算】确定
A1公式：
=IF(AND(A1<>0,COUNTIF($A$1:$A$10,A1)=1),A1,TEXT("2012/1/1"+7*INT(RAND()*53),"yyyy/mm/dd"))
向下填充到A1:A10
----------------------------------------------
同时我还想在另一组日期：2012年12月13日到2013年3月31日这些日期之中，任选10个日期，这个的抽取方式能麻烦您也把公式粘贴一下吗？
=IF(AND(A1<>0,COUNTIF($A$1:$A$10,A1)=1),A1,TEXT("2012/12/16"+7*INT(RAND()*16),"yyyy/mm/dd"))
热心网友
时间：2022-06-18 09:57
用rand做个辅助列,用vlookup+small来抽.
或者B列不要,用下面的公式也可以得到同样结果
="2011-12-25"+RANK(A2,A$2:A$54)*7
热心网友
时间：2022-06-18 09:58
OFFICE2003：
右键SHEET1——查看代码——粘贴如下代码（注意换行）——F5运行
Sub mysub()
Dim i As Integer
Dim d1 As Date
d1 = "2012-1-1"
i = 2
Do While i < 12
Cells(i, 1) = Format(d1 + (Int(Rnd() * 50) + 1) * 7, "yyyy-mm-dd")
If Not Range("a1:a" & i - 1).Cells.Find(Cells(i, 1), lookat:=xlWhole) Is Nothing Then
Cells(i, 1) = Format(d1 + (Int(Rnd() * 50) + 1) * 7, "yyyy-mm-dd")
Else
i = i + 1
End If
Loop
End Sub
热心网友
时间：2022-06-18 09:58
在A1单元格输入2012-1-1，选中A1到A53，编辑填充-序列-类型选日期-步长值选7，确定，然后自己随机选择10个
