|
下記レポートフォームになる数値をSheet3のように並べ替えたい。
Sheet1とSheet2のサイズ・位置は基本的に同じ。Total行と列は必要なし。
フォーム内にある特定のセルをヘッダーとして扱い、詳細データにくっつけてSheet3に飛ばしたいイメージです。空白列やセルが間にあるため、レンジ指定ができませんでした。
VBA初心者のため、お手数お掛けします!
A B C D E F G H I
1
2 <Sheet1>
3 部署1 ←ヘッダー
4 空白行
5 ヘッダー→ 種類 JPY 空白列 USD 空白列 EUR 空白列 Total
6 人件費 1 6 11 18
7 光熱費 2 7 12 21
8 水道費 3 8 13 24
9 交際費 4 9 14 27
10 雑費 5 10 15 30
11 total 15 40 65 120
A B C D E F G H I
1
2 <Sheet2>
3 部署2 ←ヘッダー
4 ヘッダー→ 空白行
5 種類 JPY 空白列 USD 空白列 EUR 空白列 Total
6 人件費 1 6 11 18
7 光熱費 2 7 12 21
8 水道費 3 8 13 24
9 交際費 4 9 14 27
10 雑費 5 10 15 30
11 total 15 40 65 120
<Sheet3>
<こうしたい>
部署1 人件費 JPY 1
部署1 光熱費 JPY 2
部署1 水道費 JPY 3
部署1 交際費 JPY 4
部署1 雑費 JPY 5
部署1 人件費 USD 6
部署1 光熱費 USD 7
部署1 水道費 USD 8
部署1 交際費 USD 9
部署1 雑費 USD 10
部署1 人件費 EUR 11
部署1 光熱費 EUR 12
部署1 水道費 EUR 13
部署1 交際費 EUR 14
部署1 雑費 EUR 15
部署2 人件費 JPY 1
部署2 光熱費 JPY 2
部署2 水道費 JPY 3
部署2 交際費 JPY 4
部署2 雑費 JPY 5
部署2 人件費 USD 6
部署2 光熱費 USD 7
部署2 水道費 USD 8
部署2 交際費 USD 9
部署2 雑費 USD 10
部署2 人件費 EUR 11
部署2 光熱費 EUR 12
部署2 水道費 EUR 13
部署2 交際費 EUR 14
部署2 雑費 EUR 15
|
|