Вставка элементов в массив

Question

У меня есть многомерный массив в Excel:

В скрипте VBA у меня есть следующий код:

Dim actualWeights
actualWeights = Range("A7:E21").Value

После некоторых вычислений я хочу добавить отсутствующие идентификаторы на место в массиве. Так что в этом случае ID 3, 4, 6 et c. К моему сожалению нет функции добавления или вставки. Каков наилучший способ сделать это?

Добавлено: Итак, после некоторых вычислений я хочу вставить на место:

<id: 3, weight: 34,92, measured: false, dailyLoss: 0,31, prediction: 0,00>

И затем я хочу вставить на место:

<id: 4, weight: 34,60, measured: false, dailyLoss: 0,31, prediction: 0,00>

Et c. Пока все недостающие идентификаторы не заполнены. Идентификаторы в этом примере должны быть от 1 до 24.

Answer 1

Вы можете добавить данные в VBA точно так же, как вы делали бы это на рабочем листе без VBA.

Вручную, вы бы добавили отсутствующие записи, начиная со строки № 22, и отсортировали таблицу по Я БЫ. (это сместит новые записи вверх в их нужные позиции)

Используя VBA, введите данные примерно так:

actualWeights = Range("A7:E100").Value

Затем вставьте отсутствующие данные и, наконец, используйте VBA для сортировки конечного продукта.

Answer 2

Вставка строк массива

Просто для удовольствия и для демонстрации вставки новой строки элементов в существующий массив с помощью функции Application.Index():

Пример вызова, близкого к OP

Вызов процедуры ins()

Sub ins(arr, newItems)
'Note: newItems e.g. <id: 3, weight: 34,92, measured: false, dailyLoss: 0,31, prediction: 0,00>
    '[1] Get (unique) id
    Dim id As Long: id = newItems(0)

    '[2] Get row numbers including the one to be inserted, e.g. Array(1,2,3,3,4,5,6,7,8,9,10,11,12,13,14,15)
    Dim i As Long, ii As Long
    ReDim tmp(1 To 1, 1 To 1000)
    For i = 1 To UBound(arr)
        If arr(i, 1) < id Then ii = ii + 1: tmp(1, ii) = ii
        If arr(i, 1) > id Then ii = ii + 1: tmp(1, ii) = ii: Exit For
    Next i
    For i = ii + 1 To UBound(arr) + 1: tmp(1, i) = i - 1: Next ' << Edited: added missing Next statement /2020-03-12
    ReDim Preserve tmp(1 To 1, 1 To i - 1)
    tmp = Application.Transpose(tmp)

    '[3] restructure by inserting new row
    arr = Application.Index(arr, tmp, Array(1, 2, 3, 4, 5))

    '[4] Insert new items
    Dim curr As Long
    If id > arr(ii, 1) Then ii = UBound(tmp)
    For curr = 0 To UBound(newItems)
        arr(ii, curr + 1) = newItems(curr)
    Next curr
End Sub