| 
 回答が付かないようですので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列を必要数下にコピーします。
 
 
 |