Вот код, который я получил из этого полезного видео на YouTube:
https://www.youtube.com/watch?v=5bOFNsdHiPk
Sub SplitandFilterSheet()
Dim Splitcode As Range
Sheets("Master").Select
Set Splitcode = Range("SplitCode")
For Each cell In Splitcode
Sheets("Master").Copy After:=Worksheets(Sheets.Count)
ActiveSheet.Name = cell.Value
With ActiveWorkbook.Sheets(cell.Value).Range("MasterData")
.AutoFilter Field:=4, Criteria1:="NOT EQUAL TO" & cell.Value, Operator:=xlFilterValues
.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
ActiveSheet.AutoFilter.ShowAllData
Next cell
End Sub
ПРОБЛЕМА:
Это почти работает для меня. Он разбивает основные данные на несколько вкладок. Вкладки названы правильно с уникальными идентификаторами сотрудников. Но содержание каждой вкладки включает ВСЕ данные. Он разделяет значения уникальных столбцов на 1331, 1147, 1498, но все три листа имеют все три идентификатора (1331, 1147, 14798) ... он не удаляет те, которые мне не нужны во вкладке ... почему? Пожалуйста, помогите:)