VBA中,假如一共有100个00-99的数组,我输入这个数组中其中的一部分,如何能输出剩下的一部分

Private Sub CommandButton1_Click()

    Dim arr(100) As String
    Dim tmparr
    Dim newarr(100) As String
    tmparr = Array("1", "2", "8")  '这里定义你想输入的数组
    '生成1-99的数组
    Dim i As Integer
    For i = 0 To UBound(arr)
        arr(i) = i + 1
    Next i
    
    '判断输入的数字是否和1-99数组从的值重复，不存在就放入新的输出用数组
    Dim j
    Dim sameflg As Boolean
    Dim count As Integer: count = 0
    For i = 0 To UBound(arr)
        sameflg = False
        For j = 0 To UBound(tmparr)
            If arr(i) = tmparr(j) Then
                sameflg = True
            End If
        Next j
        If sameflg = False Then
            newarr(count) = arr(i)
            count = count + 1
        End If
    Next i
    
    ’msgbox输出 输出用数组 （里面是没有被输入的数）
    Dim showStr As String
    For i = 0 To UBound(newarr)
        If newarr(i) = "" Then
            Exit For
        End If
        showStr = showStr & newarr(i) & ","
    Next i
    
    MsgBox showStr
    
    
End Sub

 

觉得好用记得给分哦

（话说只有5分~~这种题起码10分啊= =）

追问

我复制到txt文档然后以.vbs保存，无法使用哦，帮人帮到西拉，，，怎么弄，回头多给你分

追答

不是~~不用弄进vbs~你在excel里插入一个button控件（默认就叫CommandButton1），双击这个button就会进入这个CommandButton1_Click方法 把方法内的代码复制进去，就可以运行了。

对了，第29行的那句是注释，前面的单引号改成半角的，不然不会被解释成注释~~没变绿色，这也可能是VBS报错的原因

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/yfexfe33x.html