我的 excel 文件中有大约 10,000 条记录。我想为这 10,000 条记录设置随机日期。我将手动提供随机日期。
例如:-
Random dates:- 01-OCt-15 to 30-Oct-15
Emp id Emp Name Sal_Date
101 JOhn 05-OCt-15
102 Mathew 07-OCt-15
103 Stephen 26-Oct-15
105 Rahul 05-oct-15
像这样..............
答案1
这实际上并不需要 VBA。
- 将开始日期和结束日期放在两个单元格中
- 在“sal_date”的第一个单元格中输入:
=RANDBETWEEN(<start_date>,<end-date>)
- 使用您需要的日期格式格式化此单元格
- 转到“emp name”的第一个单元格
- 按CTRL+ down- 这将转到数据的最后一行
- 按right转到“sal_date”列
- 按CTRL++ SHIFT-up现在整个列已被选中
- 按CTRL+ D- 这将填充公式
- 如果要将公式转换为常量值:CTRL+C然后在功能区中选择粘贴 - 值
答案2
在某些单元格中输入:
=DATE(2015,10,RANDBETWEEN(1,30))
并抄下来
如果您需要将此作为更大的宏的一部分来执行,那么:
Sub DateFiller()
Range("A1:A10000").Formula = "=DATE(2015,10,RANDBETWEEN(1,30))"
End Sub