Разделите элемент списка другим элементом списка с помощью функции или кнопки vba

Question

Я хочу узнать, как создать функцию, способную разделять списки в Excel. В python это можно сделать, как показано.

https://www.geeksforgeeks.org/python-dividing-two-lists/

Пользовательская запись представлена ​​в виде ячейки чисел, разделенных запятыми

то есть:

cell a2: 12,86,71,54
cell b2: 1,3,2,1

Это должна быть функция, так как она потребует пользовательского ввода, который будет динамическим c. Этого нельзя сделать с функцией преобразования текста в столбцы. Например, у меня пользователь вводит список, такой как 12,86,71,54, который необходимо разделить на запись другого пользователя из другого списка, разделенного запятыми 1,3,2,1 (12/1 + 86/3 + 71 / 2 + 54/1)

Заранее спасибо!

Answer 1

Попробуйте:

Option Explicit
Public Function DivList(s1 As String, s2 As String) As String
    Dim arr1, arr2, arr3, i As Long

    arr1 = Split(s1, ",")
    arr2 = Split(s2, ",")
    ReDim arr3(LBound(arr1) To UBound(arr1))

    For i = LBound(arr1) To UBound(arr1)
         arr3(i) = arr1(i) / arr2(i)
    Next i
    DivList = Join(arr3, ",")
End Function

Пример: