用于填充随机日期的 VBA 宏

用于填充随机日期的 VBA 宏

我的 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。

  1. 将开始日期和结束日期放在两个单元格中
  2. 在“sal_date”的第一个单元格中输入:
    =RANDBETWEEN(<start_date>,<end-date>)
    • 使用您需要的日期格式格式化此单元格
  3. 转到“emp name”的第一个单元格
  4. CTRL+ down- 这将转到数据的最后一行
  5. right转到“sal_date”列
  6. CTRL++ SHIFT-up现在整个列已被选中
  7. CTRL+ D- 这将填充公式
  8. 如果要将公式转换为常量值:CTRL+C然后在功能区中选择粘贴 - 值

答案2

在某些单元格中输入:

=DATE(2015,10,RANDBETWEEN(1,30))

并抄下来

如果您需要将此作为更大的宏的一部分来执行,那么:

Sub DateFiller()
   Range("A1:A10000").Formula = "=DATE(2015,10,RANDBETWEEN(1,30))"
End Sub

相关内容