Создание нового листа на основе строки с новыми именами заголовков

Question

Мне нужно создать новый лист с помощью макросов, указав имя первого столбца (активная ячейка), и мне нужно дать разные имена заголовков, а конкретные значения столбцов необходимо скопировать на вновь созданный лист.

Примечание:Несколько значений столбцов необходимо скопировать с исходного листа на новый лист и дать имя для первого столбца значений активного столбца нового листа.Он не должен применяться ко всем значениям столбца, я имею в виду, что имя должно быть только активным значением ячейки.

Согласно приложенным снимкам экрана, мне нужно создать значение столбца с именем проекта, нам нужно создать новый лист (второй экранснимок необходим для выхода).

Answer 1

Цель должна быть примерно такой:

Dim lrs as long, lrd as long, i as long
lrs = Sheets("Summary").cells(Sheets("Summary").Rows.Count,1).end(xlup).row
With Sheets("EMDN_SW_Project") 'longer to type than "Summary"
    for i = 2 to lrs 'assumes header in row 1
        'if statement if needed
            lrd = .cells(.rows.count,1).end(xlup).row
            .cells(lrd+1,1).value = Sheets("Summary").cells(i,1).value
        'end if
    next i
End With

Я бы порекомендовал форматировать в конце с желаемым форматом, а не оценивать форматирование по ходу (намного медленнее).