Создайте рабочий лист Excel на основе значений конкретных столбцов

Question

Я прилагаю link с примерной таблицей.

Что я хотел бы сделать, это создать несколько рабочих листов, используя ключевой столбец «Facility», возможно, используя макрос. Например, я хотел бы создать новый лист с именем Houston и заполнить рабочий лист данными, относящимися к этой строке. Некоторые из ячеек могут оказаться в разных местах на новом рабочем листе. Мне нужно сделать отдельный лист для каждого значения в «Facility». Оригинал, над которым я работаю, имеет 270 строк (270 объектов).

Кто-нибудь знает, как это сделать? Я новичок в запуске и создании макросов. Я создал макрос, который не работает правильно.

Answer 1

Попробуйте это:

Dim wks As Worksheet 
Dim lstRow As ListRow 

For Each lstRow In ThisWorkbook.Worksheets("Sheet1").ListObjects("Table1").ListRows 
    Set wks = ThisWorkbook.Worksheets.Add 
    wks.Name = lstRow.Range.Cells(, 1).Value 
    With wks 
     .Range(.Cells(1, 1), .Cells(1, lstRow.Range.Columns.Count)) = lstRow.Range.Value 
    End With 
Next 

Set wks = Nothing 

Предположение:

• имени рабочего листа, где хранятся данные, называются Лист1
• Таблица, содержащие данные являются ListObject (например, преобразовывать в диапазоне ваших данных в таблицу Excel)
• ListObject name is Таблица 1