|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
先将表头作了简单改动。然后引入外部查询,SQL语句如下:
select [WS Code],WS,[Store Code],Store,销售,经理,"2009年1月" as 年月,[2009年1月] as 值 from [data$A2:R12] union all
select [WS Code],WS,[Store Code],Store,销售,经理,"2009年2月",[2009年2月] from [data$A2:R12] union all
select [WS Code],WS,[Store Code],Store,销售,经理,"2009年3月",[2009年3月] from [data$A2:R12] union all
select [WS Code],WS,[Store Code],Store,销售,经理,"2009年4月",[2009年4月] from [data$A2:R12] union all
select [WS Code],WS,[Store Code],Store,销售,经理,"2009年5月",[2009年5月] from [data$A2:R12] union all
select [WS Code],WS,[Store Code],Store,销售,经理,"2009年6月",[2009年6月] from [data$A2:R12] union all
select [WS Code],WS,[Store Code],Store,销售,经理,"2009年7月",[2009年7月] from [data$A2:R12] union all
select [WS Code],WS,[Store Code],Store,销售,经理,"2009年8月",[2009年8月] from [data$A2:R12] union all
select [WS Code],WS,[Store Code],Store,销售,经理,"2009年9月",[2009年9月] from [data$A2:R12] union all
select [WS Code],WS,[Store Code],Store,销售,经理,"2009年10月",[2009年10月] from [data$A2:R12] union all
select [WS Code],WS,[Store Code],Store,销售,经理,"2009年11月",[2009年11月] from [data$A2:R12] union all
select [WS Code],WS,[Store Code],Store,销售,经理,"2009年12月",[2009年12月] from [data$A2:R12] |
|