ExcelVBA 要素名で一次元配列から要素を削除する関数

この関数を利用するためには、関数「Remove_Item_From_Array_By_Index」を参照する必要があります。

'--- 要素名を指定して配列から要素を削除する ---
'--- 同一要素名が複数ある場合は最初の要素が削除される ---
'--- Remove_Item_From_Array_By_Indexの参照が必要 ---
Private Function Remove_Item_From_Array_By_Name(ByRef TargetArray As Variant, ByVal Name As Variant)

    Dim i As Long

    For i = LBound(TargetArray) To UBound(TargetArray)
        If TargetArray(i) = Name Then
            TargetArray = Remove_Item_From_Array_By_Index(TargetArray, i)
        Exit For
        End If
    Next i

    Remove_Item_From_Array_By_Name = TargetArray

End Function