Excel vba array remove first

Public Sub DeleteElementFromArray(ByRef pArray As Variant, ByVal pIndex As Long)
    Dim index As Integer
    If pIndex >= LBound(pArray) And pIndex <= UBound(pArray) Then
        For index = pIndex + 1 To UBound(pArray)
            pArray(index - 1) = pArray(index)
        Next
        If UBound(pArray) - LBound(pArray) > 0 Then
            ReDim Preserve pArray(UBound(pArray) - LBound(pArray) - 1)
        Else
            ReDim pArray(0)
        End If
    End If
End Sub

Similar codes

0 vote219 views1 answer
Vbnet cycle through charaters in string
VBA
0 vote233 views1 answer
Vba remove the first character of string
VBA
8 votes342 views1 answer
Excel vba make a short integer from two bytes
VBA
0 vote198 views1 answer
Vb check if row has column
VBA
0 vote206 views1 answer
Send text to clipboard vb.net
VBA
0 vote215 views1 answer
Label de tableau dans des label.text en VBA
VBA
0 vote193 views1 answer
Vba createparameter null
VBA
0 vote226 views1 answer
Build an index all files of a FTP site
VBA
0 vote207 views1 answer
Excel vba linter
VBA
5 votes232 views1 answer
Excel vba last byte from INTEGER
VBA