Excel VBA連続した番号と連続しない番号の連結

Question

私はプログラミングには新しく、しばらくの間この難問に困惑しています。私は、ソリューションがネストされた条件文および/またはユーザ定義関数を含むと思われる。シート番号の一部が重複している、シート番号の一部：考慮すべきいくつかのものがあります

QTY Type Sheet# 
1 B 1000 
5 B 1001 
3 B 1002 
2 B 1005 
7 B 1009 
4 B 1010 
2 B 1010 
3 B 1010 
1 B 1011 
2 B 1012 
6 B 1013 
8 B 1013 
1 B 1015 
1 B 1015 
2 B 1016 

：私は「シート＃」欄で最大と最小のソートされている。このような表を持っています（上記のリストから1006〜1008が欠落しているなど）、シート番号の一部が連続しており、一部が重複しており、次のシート番号（1010,1010,1010,1011など）と連続しています。

私が作成する必要がある結果は、3つのセルです。量の合計、文字の翻訳（「B」は「Beam」を表し、シート番号の連結は次のようになります。

QTY Type Sheet# 
48 Beams On sheets 1000 to 1002, 1005, 1009 to 1013, 1015 and 1016 

「B」から「ビーム」への翻訳は、1つの場合のみです。別のワークシートに別のテーブルがあり、すべてのタイプがリストされています。 B =ビーム、C =コラム、BR =ブレース、PS =パイプのサポートなど。

ご指摘いただきありがとうございます。

Answer 1

コピーB：別の領域へのC（IはGに配置され：H）

入力F2でデータタブで

"を重複を削除" 機能を使用する：I2で=SUMIF(B:B,G2,A:A)

J2でBまたはCの意味や何

を引き戻すためにVLOOKUPの数式に入れて、次の式を置く：=IF(G2<>G1,"On sheets " & H2,IF(AND(H2=H1+1,H2=H3-1),J1,IF(H2=H1+1,J1 & " to " & H2,J1 & ", " & H2)))

F2、I2、J2を下にドラッグします。

これは一度あなたのようにコピーして貼り付けることができ行わ

QTY TypeSheet# 
48 B 1000 On sheets 1000 
48 B 1001 On sheets 1000 
48 B 1002 On sheets 1000 to 1002 
48 B 1005 On sheets 1000 to 1002, 1005 
48 B 1009 On sheets 1000 to 1002, 1005, 1009 
48 B 1010 On sheets 1000 to 1002, 1005, 1009 
48 B 1011 On sheets 1000 to 1002, 1005, 1009 
48 B 1012 On sheets 1000 to 1002, 1005, 1009 
48 B 1013 On sheets 1000 to 1002, 1005, 1009 to 1013 
48 B 1015 On sheets 1000 to 1002, 1005, 1009 to 1013, 1015 
48 B 1016 On sheets 1000 to 1002, 1005, 1009 to 1013, 1015 to 1016 
20 C 1012 On sheets 1012 
20 C 1013 On sheets 1012 to 1013 
20 C 1015 On sheets 1012 to 1013, 1015 
20 C 1016 On sheets 1012 to 1013, 1015 to 1016 

私はいくつかのテストデータを再生したときにそれが見えた方法です（VLOOKUPを行いませんでした、それは私のテストのベアリングを持っていない）

単純にタイプごとに最後の行を除くすべてを削除してください