祝大家狗年大吉

春节快乐

公众号自运营以来，得到了大家的广泛认可。收到了好多小伙伴在后台的留言支持。在此特别感谢！

春节到了，翰博在这里祝249位关注的小伙伴春节快乐！

对于一个技术宅，除夕夜也想用VBA给大家一个特别的推送。

烟花鞭炮的氛围中，给大家用VBA做了一个新年礼物。

新的一年也希望大家继续支持关注本公众号。

祝大家新的一年事业更上一层楼！

新的一年VBA水平更上一层楼！

源码奉上：

Sub er()

num = Worksheets(2).Range("a1").End(xlDown).Row

num1 = Int((num * Rnd) + 1)

Worksheets(1).Cells(6, "k") = Worksheets(2).Cells(num, 1)

Worksheets(1).Cells(10, "i") = Worksheets(2).Cells(num, 2)

Worksheets(1).Cells(10, "o") = Worksheets(2).Cells(num, 3)

End Sub

附件链接：https://pan.baidu.com/s/1c4cwO9a密码：cms5