Найти валюту и сумму, а также идентификатор магазина в массиве и вставить в выходной лист

Question

Я хотел бы найти текст «Валюта» в столбцах А или В, хранить все валюты, перечисленные в разделе Валюта.Тот же процесс для количества (может быть в столбце) Сохранение значений в массиве.Затем вставьте в выходной лист.Валюты уже будут перечислены в Листе вывода в 1-й строке листа.Однако, если это новая валюта, тогда код должен найти последнюю использованную ячейку в строке 1 и добавить ее.Значение Amount должно быть добавлено к выходному листу по отношению к валюте и идентификационному номеру, также скопированному из исходного листа.

У меня есть код.

    Public Sub loopRow()

    Dim curArray     As Variant
    Dim listarray As Variant
    Dim cnt         As Long

'Find Currency

Dim rgFound As Range
Set rgFound = Range("A:B").Find("Currency")

'Find last used row
    curArray = Cells(rgFound.Address).End(xlUp).Row

    'Transpose list of currecny from the row down from the word Currency that it has found
        listarray = Application.Transpose(Cells(Rows, curArray).End(xlUp)).Row

    For cnt = LBound(curArray) To UBound(curArray)
        curArray(cnt) = curArray(cnt)
    Next cnt
    For cnt = LBound(curArray) To UBound(curArray)
        'Debug.Print curArray(cnt)

    'Copy and paste into Sheet under the correct curreny, if new currency then add this in row A


    Next cnt
End Sub

Answer 1

Хотя вам нужно понять, что ваш вопрос не подлежит рассмотрению как таковой, я сделаю все возможное, чтобы помочь.

Проблема в том, что мы не видим исходный лист так, как вы, потому что мы не можемувидеть это вообще.Вы говорите, что у вас есть слово Валюта в столбцах A или B или обоих, и где-то столбец ID, и значения Amount везде.Это хитрые исходные данные.Если более вероятно, что идентификатор находится в определенном столбце, а суммы - в наборе столбцов, у нас будет шанс.

В вашем вопросе изложены основные шаги, которые вы хотели бы предпринять довольнону, так что вы хорошо начали.

Однако вы можете делать всю работу без VBA, конечно, если я прав насчет данных источника.Создайте себе рабочий лист или несколько рабочих листов.Определенно один, чтобы перебрать полный список валют.Возьмите копию столбцов A и B (по формулам), а затем проследите, чтобы рабочий лист просматривал строку за строкой, и используйте логику для построения списка.Таблицы хороши в этом.

Когда у вас есть список, используйте его в качестве заголовков строк на листе «Вывод» и используйте значения sumifs для получения значений.Я не уверен, как идентификаторы будут соответствовать, но если бы они были вашими заголовками строк, то сделайте то же самое, что и выше, чтобы получить список уникальных идентификаторов и связать их с вашей страницей вывода в столбце A. Ваши суффиксы могут обработатьЭто.

Это вряд ли скажет вам все, что вам нужно знать, но если вы решите это, вы многое узнаете об Excel и о том, когда вам нужно перейти на VBA.

ЕслиВы бы предпочли сделать это с помощью VBA, разбить каждый шаг, пока он не заработает, а затем перейти к следующему.

И если вам нужна дополнительная помощь, вставьте свои данные здесь.Сначала анонимно, если нужно.