Question

求救大神帮我做一个EXCEL的VBA：用鼠标选中一块区域，在这块区域中，随机清除其中10个单元格的数据，谢谢

Answer 1

Sub s()
    Dim a As Range, b As Range
    Set a = Application.InputBox("选择区域", , , , , , , 8)
    k = a.Count
    If k <= 10 Then Exit Sub
    Do
        i = Int(Rnd * k + 1)
        If b Is Nothing Then
        Set b = a(i)
        Else
        Set b = Union(b, a(i))
        End If
    Loop Until b.Count = 10
    b.Clear
End Sub

追问

高手啊，请问能加好友吗？我想以后在工作时能多请教你

能帮我再改改吗？我想是选中的区域每列清楚10个

每列清除10个

Answer 2

使用inputbox()方法 ，如：inputbox("请用鼠标选择区域：“，type:=8)，关键在于这个tpye,8代表的是range区域，详细可以见inputbox的帮助