Excel - создание списка элементов из табличных значений

Question

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

Я пытаюсь создать формулу, в которой будут перечислены инструменты на сайте и пропущены те, которые не соответствуют количеству, указанному рядом с инструментом.Я попытался создать выпадающий список в верхней строке, который определит, какой столбец формула смотрит вниз - на бумаге это показалось достаточно простым, но я изо всех сил стараюсь применить его на практике.

Любой совет приветствуется.Спасибо

Answer 1

Если вы предпочитаете выполнить задачу с кодом VBA, попробуйте:

Sub test2()

    Dim i As Long, LastCol As Long, LastRow As Long, j As Long, AddCol As Long, LastRowNew As Long
    Dim SiteName As String

    With ThisWorkbook.Worksheets("Sheet1")

        LastCol = .Cells(2, .Columns.Count).End(xlToLeft).Column
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

        AddCol = 3

        For i = 3 To LastCol

            .Cells(1, LastCol + AddCol).Value = .Cells(1, i).Value

            For j = 2 To LastRow
                If .Cells(j, i).Value <> 0 Then
                    LastRowNew = .Cells(.Rows.Count, (LastCol + AddCol)).End(xlUp).Row
                    .Cells(LastRowNew + 1, LastCol + AddCol).Value = .Cells(j, i).Value
                    .Cells(LastRowNew + 1, (LastCol + AddCol) - 1).Value = .Cells(j, 2).Value
                End If

            Next j

            AddCol = AddCol + 3

        Next i

    End With

End Sub

Вывод: