社員名簿からリストで指定した部署ごとに名簿を抜き出して分割したワークシートを作るマクロ

こういう名簿から リストシートに記入された部署名に従って 部署ごとの ワークシートに 分割するマクロ コード Sub 名簿をリストに沿って分割する() Dim ws1 As Worksheet Dim ws2 As Worksheet Dim listlastrow As Long Dim filterColumn As Range Dim filterValue As String Dim lastRow As Long Dim i As Long Dim ii A…