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