Question

在excel2003中，请编写VBA代码如下图片中的要求，谢谢！

按要求查找出选中范围内，查找（未出现过的数，在设定范围数值内）有哪些？

如有不懂的问题，请提问，谢谢！

Answer 1

Sub ttt()
Dim sRange As Range, r As Range
Dim s$, a, i%
    Set sRange = Selection
    If sRange.Cells.Count = 1 Then
        MsgBox "请选择查找范围！"
        Exit Sub
    End If
    
    s = InputBox("请输入数字区间(格式：80-90)：")
    a = Split(s, "-")
    n1 = CInt(Trim(a(0)))
    n2 = CInt(Trim(a(1)))
    
    s = ""
    For i = n1 To n2
        s = s & "," & i
    Next
    
    For Each r In sRange
        s = Replace(s, "," & r, "")
    Next
    
    a = Split(s, ",")
    Set r = sRange.Cells(1, 1).Offset(-2, 0)
    For i = 1 To UBound(a)
        r = a(i)
        Set r = r.Offset(-1, 0)
    Next
End Sub

Answer 2

你这个需要写一个VBA程序，不过看你这个要求应该是要处理挺多的东西吧，需要参数可改的那种？

追问

是的

追答

那这个工程稍微有点大，你需要给比较详细的资料。jia我来说下吧

追问

不是吧，应该是高手，都可以的，我以前试过，的谢谢了！

Answer 3

范围怎么处理，输入么？

追问

是VBA代码确定范围在80-90之间的，就行了！

追答

如果你有一位数的话，采纳的答案会出错。