は、私は非VBAソリューションのためにしたものです:
1. Place all of your tables on top of each other
2. Remove the first two rows and any intervening blank rows
from all tables except the first one. It should look like one long table.
3. In the first blank row of the second column put:
=IF(SUMIF($A$3:$A$8,$A3,B$3:B$8)=0,"",SUMIF($A$3:$A$8,$A3,B$3:B$8)) and adjust it
for your correct last row.
4. Drag the formula down (for the neccesary number of rows) and over one column.
5. With all the formulas selected, right click and hold any edge of the selection,
move off and back on again and paste as values only. (You must do this step for it to work properly)
6. Copy and paste the company names.
7. Select the three columns of your new rows and remove duplicates.
Uncheck My Data has headers.
8. Sort the columns.
あなたがここに完全なコードを期待することはできません。あなたが試したことを示してください。我々はそこから助けてくれるでしょう。 –
まだ書かれているコードはありません。かなり簡単な問題のように思えば、簡単な解決策があることを期待していました。 –
見出し(青色)を途中で移動し、複数の連結範囲に基づくPTがまさにあなたが望むものと思われます(いくつかの詳細については[ここ](http://stackoverflow.com/a/20543651/1505120)を参照)。 VBAではありません。 – pnuts