Как использовать список на одной вкладке в Excel для создания новых столбцов на другой вкладке?

Question

Мне понадобится помощь в создании настраиваемой таблицы в MS Excel.

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

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

Как я могу запрограммировать макрос, который позволяет нажимать кнопку в электронной таблице, которая затем просматривает все ячейки, отмеченные «x» рядом с ними, и создает новый столбец в tab1, используя значениекаждая ячейка в tab2 как заголовок в таблице в tab1?Я не могу найти в Интернете никакой информации о том, какие команды кодирования будут выполнять эту задачу, и, поскольку в Excel нет способа выполнить это, кроме как просмотреть информацию заголовка и записать ее в соответствующие ячейки самостоятельно, я не могу найти никаких связейи мне самому это понять.

Answer 1

Вот код макроса.

Настройка Excel:

1. Ваш список значений должен присутствовать в «Sheet2», столбцы A и B
2. Существует ограничение в 20 значений, изменитекод, если у вас есть больше значений в вашем списке
3. Значения будут скопированы в «Лист1» Строка 1, начиная с колонки B

Sub CreateTable()
'
' CreateTable Macro
'

'
Dim rng1 As Range, rng2 As Range, cell As Range
Dim i As Integer, destCol As Integer, limit As Integer

destCol = 2
limit = 20

'Clear values from the Column headers that already exist from previous run
For i = 2 To limit + 2
    Cells(1, i) = ""
Next i

'Write new column headers based upon the updated list
For i = 1 To limit
    If Worksheets("Sheet2").Range("B" & i) = "x" Then
        Cells(1, destCol).Value = Worksheets("Sheet2").Range("A" & i)
        destCol = destCol + 1
    End If
Next i

End Sub