回答が付かないようですので1案です。
A B C D ..... H 1 会社名 tel 分類 評価 作業列 2 山田梶@ 1112222 3 A 3 田中梶@ 2223333 1 B 4 清水梶@ 3334444 2 A 5 木村梶@ 4445555 1 B 6 結城梶@ 5556666 2 A
各表とも1行目に項目名が有るとします。 また、シートAのシート名は「Sheet1」とします。以下Sheet2、Sheet3とします。 Sheet1の H2: =1+ROW(A1)/1000 必要数、下にコピーします。
Sheet2の H2: =IF(ISERROR(MATCH(A2,Sheet1!$A$2:$A$6,0)),2+ROW(A1)/1000,"") 必要数、下にコピーします。
Sheet3の H2: =IF(ROW(A1)<=COUNT(Sheet1:Sheet2!$H$2:$H$10),SMALL(Sheet1:Sheet2!$H$2:$H$10,ROW(A1)),"") 必要数、下にコピーします。 A2: =IF(ROW(A1)<=COUNT(Sheet1:Sheet2!$H$2:$H$10),INDEX(INDIRECT("Sheet"&INT($H2)&"!A2:D10"),MOD($H2,1)*1000,COLUMN(A1)),"") C列まで右にコピーします。
D2: =IF(INT(H2)=2,"",IF(ROW(D1)<=COUNT(Sheet1:Sheet2!$H$2:$H$10),INDEX(INDIRECT("Sheet"&INT($H2)&"!A2:D10"),MOD($H2,1)*1000,COLUMN(D1)),""))
E2: =IF(ISERROR(VLOOKUP($A2,Sheet2!$A$2:$E$10,COLUMN(D1),FALSE)),"",VLOOKUP($A2,Sheet2!$A$2:$E$10,COLUMN(D1),FALSE)) F列にコピーします。
AからF列を必要数下にコピーします。
|