请问大神们可以实现excel单元格输入数量后随机删除内容吗？

稀里糊涂杨哈哈

这是表中的数据，如果我需要电话一列随机留空，就需要随机删除某些电话。
比如测试表里326个人的电话，如果我输入300，也就是随机删除300个人的电话，随机留空26个电话
请问大神可以实现吗
再次感谢大神，跪谢

maditate

行呀。                             

稀里糊涂杨哈哈

maditate 发表于 2019-6-12 18:22
行呀。

请问大佬如何实现或者有实例吗

maditate

Sub test()
aa = InputBox("请输入删除数量", "电话号随机删除")
aa = Val(aa)
If aa = Empty Then Exit Sub
mylastR = Cells(Rows.Count, 3).End(xlUp).Row
ReDim arr(2 To mylastR)
Randomize

For h = 2 To aa
     rr = Int((mylastR - h + 1) * Rnd + h)
     a1 = arr(h)
     If a1 = Empty Then a1 = h
     If arr(rr) = Empty Then arr(rr) = rr
      arr(h) = arr(rr)
      arr(rr) = a1
      
      
Next h
For h = LBound(arr) To aa
    Cells(arr(h), 4) = "dddd"   '把这句中的  4  改为3， 把等于号后面的 "dddd" 改为  ""
Next h

End Sub

稀里糊涂杨哈哈

maditate 发表于 2019-6-12 18:51
Sub test()
aa = InputBox("请输入删除数量", "电话号随机删除")
aa = Val(aa)

可用 太感谢大神了