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