excel - 如何删除VB数组中的项目？

Question

这里我想删除 TargetkyeArr() 中的源键“566” sourcekeys 在数组列表中找到。

TargetKeys = "566, 777, 888, 999, 1000"
Dim Arr() As String
TargetkeyArr() = Split(Targetkeys, ",")

Sourcekeys = 566
m = 0
Do While m <= (UBound(TargetKeyArr) - LBound(TargetkeyArr))
  If sourcekeys = Arr(m) Then
         MsgBox "Record found"
         Exit Do
   End If
m = m + 1
Loop

Answer 1

这应该有效:

Targetkeys = "566, 777, 888, 999, 1000"

Dim Arr() As String
Dim m As Integer

Arr() = Split(Targetkeys, ",")

sourcekeys = 566

For m = LBound(Arr) To UBound(Arr)

    If sourcekeys = Arr(m) Then

         MsgBox "Record found"

    End If

Next