配列操作

【VBA】配列の要素を１つ追加する｜ReDim Preserve

記事更新日：2022-12-04

二次元配列の場合

Public Function Redim2ArrayAddOne(ByRef ary As Variant) As Variant
    Dim Elm As Elm: Set Elm = New Elm
    Elm.add ary
    
    ReDim Preserve ary(Elm.Yfirst To Elm.Ylast, Elm.Xfirst To Elm.Xlast + 1)
    Redim2ArrayAddOne = ary
End Function

一次元配列の場合

追加する中身も一緒に格納してみる

一次元配列は、中身も同時のほうがラクかも

Public Function Redim1ArrayAddOneText( _
                                            ByRef ary As Variant, _
                                            ByVal text As String) As Variant
    Dim first As Long
    first = LBound(ary)

    '最初の要素以外の場合に、ReDim Preserveする                                            
    If (UBound(ary) = 0 And ary(0) <> "") Or UBound(ary) <> 0 Then
        ReDim Preserve ary(UBound(ary) + 1)
    End If
    
    ary(UBound(ary)) = text
    Redim1aryAddOneText = ary
End Function