搜题
  1. 问题易首页
  2. 大学网课

1. 新建启用宏的工作簿 在工作表中添加按钮“生成随机数”和“筛选非重复值”（2分） 2. 单击按钮“生成

大学网课 已帮助 人

1. 新建启用宏的工作簿，在工作表中添加按钮“生成随机数”和“筛选非重复值”（2分） 2. 单击按钮“生成随机数”，工作表的A列生成1000个随机数（3分） 3. 再单击按钮“筛选非重复值”，可将A列的1000个随机数的非重复数筛选并复制到B列中（3分） 代码关键：使用Range对象的AdvancedFilter方法筛选非重复值 参考代码： Sub 生成随机数_Click（) Dim i As Integer Application.ScreenUpdating = False Randomize With ActiveSheet For i = 2 To 1001 .Cells（i, 1) = Int（Rnd * 1000 + 1) Next End With Application.ScreenUpdating = True End Sub Sub 筛选非重复值_Click（) Dim i As Long, mg As Range Application.ScreenUpdating

1. 新建启用宏的工作簿 在工作表中添加按钮“生成随机数”和“筛选非重复值”（2分） 2. 单击按钮“生成

热搜：交换机工作在哪一层工作原理